how to dinamically create array of tedit

[sasogr]

Example: I would like that on the event onbuttonclick edit1 is created, after the second click edit2 is created and so on...

 

[Punchinello]

How about something like this? This procedure places the Edit boxes in a vertical column. Variations might include a different layout or a limit to the number of boxes that can be created.

procedure Form.ButtonClick(Sender: TObject);
const

  // tailor these constants to suit your need

  FirstBoxTop = 10;
  BoxLeft = 10;
  BoxWidth = 121;
  SpaceBetweenBoxes = 4;
var
  I: Integer;
begin

  // find what boxes already exist named EditX
  // where X is a sequential number from 1..N

  I := 1;
  while FindComponent('Edit'+IntToStr(I))<>nil do
    Inc(I);

  // create an Edit button with next number I
  // and initialize properties

  with TEdit.Create(Self) do begin
    Parent := Self;
    Name := 'Edit' + IntToStr(I);
    Text := '';
    Left := BoxLeft;
    Width := BoxWidth;
    Top := FirstBoxTop + 
          (Height * (I-1)) + 
          (SpaceBetweenBoxes * (I-1));
  end;
end;