wie lösche ich dynamisch erstellte objakte?

[fredel007]

Hi Leute, ich hänge seit ein paar Tagen an einem Problem fest,
ich ich erstelle mir 3 SpeedButtons während der Laufzeit durch ein Onclick Ereigniss eines normalen Buttons!
Jetzt möchte ich diese 3 SpeedButtons durch einen Click auf einen anderen Button wieder entfernen,
ich hab schon alles mir bekannte ausprobiert, aber es will einfach net klappen!

Kann mir vielleicht jemand helfen?

vielen Dank schonmal im Vorraus!

Delphi-Quellcode:

procedure TForm1.B1Click(Sender: TObject);
var
  i:    integer;
Begin
  for i := 1 to 3 do
  begin
    with Tspeedbutton.Create(form1) do
    begin
      Name :='sb' + inttostr(i);
      Parent := form1;
      Width := 17;
      Height := 17;
      Top := 100*i;
      Left := 100*i;
      FreeOnRelease;
    end;
  end;
end;

procedure TForm1.B2Click(Sender: TObject);
begin
  { hier sollen die drei Buttons wieder gelöscht werden }
end;