procedure   TForm1.BitBtn1Click(Sender:   TObject);
  var
      i,d,j:integer;
      editm:tedit;
  begin
  d:=0;
  j:=strtoint(num.text);
  for   i:=1   to   j   do
  begin
      editm   :=tedit.Create(self);
      with   editm   do
      begin
          editm.Parent:=ScrollBox1;
          editm.Width:=120;
          editm.Height:=20;
          editm.Left:=0;
          editm.Top:=0+d;
          editm.Name:='edit'+inttostr(i);
          editm.Text:='edit'+inttostr(i);
          editm.Visible:=true;
          d:=d+20;
      end;
  end;

给动态创建的Edit控件动态添加OnChange事件：

procedure   TForm1.EditChange(Sender:   TObject);
  begin
      showmessage(Tedit(Sender).text);
  end;

procedure   TForm1.EditChange(Sender:   TObject);
  begin
      showmessage(Tedit(Sender).text);
  end;

  procedure   TForm1.Button1Click(Sender:   TObject);
  var   NewEdit:Tedit;
  begin
        NewEdit:=Tedit.Create(nil);
        NewEdit.Parent:=self;
        NewEdit.SetBounds(10,20,50,21);
        NewEdit.OnChange:=EditChange;
  end;