dynamische buttonerzeugung zur laufzeit

[5etH]

das hat mir schonmal weiter geholfen... jetzt würde ich gerne alle Buttons in eine List speichern (TComponentList) und diese an eine eigene Procedur weitergeben nur leider hagelt es dort weil ich in der Procedur explizit mit Buttons arbeite aber es keine Buttonlist gibt

hier einmal die Code Fragmente zur Verdeutlichung

Delphi-Quellcode:

procedure move(btn : TButton); // Verlang TButton
var I : Integer;
begin
  btn.Top := 64;
btn.Left := 0;
for I := 0 to 100 do
begin
application.ProcessMessages;
  btn.Left := i;
end;

for I := 64 to 270 do
  begin
    btn.Top := i;
    application.ProcessMessages;
  end;
//....
        btn.Destroy;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
  btnNeu: TButton;
begin
  btnlist := TComponentlist.Create( false ); //Componentlist
  for I := 0 to 20 do
    begin
      btnlist.Add(btnneu.Create(self)); //Erzeugte buttons in Liste schreiben
        with btnNeu do
          begin
          Name := 'btn'+IntToStr(i);
          width := 20;
          height :=  20;
          Parent := self;
          caption := '';
          end;
    end;
  for I := 0 to btnlist.Count -1 do
    begin
    move(btnlist[i]); // Beim übergeben an die Procedure meckert er, weil Component und nicht Button
    sleep(500);
    end;
end;