1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 20 do begin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);    // Edit mit wachsendem i produzieren
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do 
    {Hier machen mich das TEdit und das FindComponent stutzig. Das TEdit scheint ja eine Funktion zu sein, mit FindComponent als Parameter. Aber warum darf man das TEdit nicht weglassen? Dann aber ändern sich Left, Top und, Parent von der Form, die Edits werden nicht mal produziert?!? Obwohl MyEdit+i doch eindeutig seien sollte...?!?!} 
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
    end;
  end;
end;