[cloayza]

Para complementar el ejemplo...

Código Delphi [-]
 
private
    { Private declarations }
    Procedure EditChange(Sender:TObject); //Declaras los procedimientos
    Procedure EditClick(Sender:TObject);
  
....

var
  Form1: TForm1;
  Edits:Array Of TEdit;  {Vector de Tipo TEdit}
  {No hay que definir el tamano del array...}

implementation
....

{Evento OnChange}
Procedure TForm1.EditChange(Sender:TObject);
Begin
       label1.caption:='OnChange...'+TEdit(Sender).Text;
End;

{Evento OnClick...}
Procedure TForm1.EditClick(Sender:TObject);
Begin
       label1.caption:='Click...'+TEdit(Sender).Name;
End;

procedure TForm1.Button4Click(Sender: TObject);
Var
     i, iTop:Integer;
begin
     {EditCuantos.Text->Deberia contener el numero que deseas crear. Y en base a ese valor se dimensiona el array Edits...}

     SetLength(Edits,StrToInt(EditCuantos.Text);

     iTop:=9;
     {Crea los TEdit...} 
     For i:=Low(Edits) to High(Edits) Do
     Begin
          Edits[i]      :=TEdit.Create(Self);
          Edits[i].Parent:=Self;
          Edits[i].Left :=18;
          Edits[i].Top  :=iTop;
          Edits[i].Width:=120;
          Edits[i].Text :=Format('Numero %d',[i]);
          Edits[i].OnChange:=EditChange;
          Edits[i].OnClick    :=EditClick;
          Inc(iTop, Edits[i].Height+2);
     End;
end;

procedure TForm1.Button5Click(Sender: TObject);
Var
     i, iTop:Integer;
begin
     {Elimina los TEdit...}
     For i:=Low(Edits) to High(Edits) Do
          If Edits[i]<>NIL Then
             Edits[i].Free;

end;

Saludos...