Auf Control zugraufen per Schleife?

[Luckie]

Man könnte ja auch mal so verwegen sein und das genannte Stichwort in der Hilfe nachschlagen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 dobegin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
    end;
  end;
end;