Nombre de Tedits creados en ejecución

[marcoszorrilla]

Mira este ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n: integer;
x: Integer;
MiEdit:  TEdit;
begin
N:= 1;
X:=20;
  Repeat
  begin
  MiEdit := TEdit.Create(Self);
  MiEdit.Parent := Self;
  MiEdit.Width:= 150;
  miedit.Left:= 60;
  miedit.Top:= X;
  miedit.Name:='Miedit'+IntToSTr(n);

  N:= N + 1;
  X:= X + 25;
  end;
  until
N = 10;
end;

Un Saludo.