Name von selbsterzeugten Buttons

[sakura]

versuche mal:

Delphi-Quellcode:

procedure TFrmAdrSearchFound.FormClose(Sender: TObject;
  var Action: TCloseAction);
var I:integer;
begin
while FrmAdrSearchFound.ControlCount > 0 do
  FrmAdrSearchFound.Controls[0].Free;
end;

...:cat:...

[MaxMara]

Das geht, nur jetzt Create'd er sie beim zweiten Mal suchen nicht mehr.
Die Panels und Buttons erzeuge ich folgendermassen:
Btw: das Ganze betrifft das Ergebnisformular von einer Suche...

Delphi-Quellcode:

      with TPanel.Create(Self) do
      begin
        Top := k;
        Left := 8;
        Height := 17;
        Width := 340;
        Alignment:= taLeftJustify;
        if (MySQLDataset1.fieldByName('adr_vorname').AsString <> '') AND (MySQLDataset1.fieldByName('adr_nachname').AsString <> '') then
           Caption := MySQLDataset1.fieldByName('adr_vorname').AsString +' '+MySQLDataset1.fieldByName('adr_nachname').AsString +' '+ MySQLDataset1.fieldByName('adr_strasse').AsString
        else
           Caption := MySQLDataset1.fieldByName('adr_institut').AsString +' '+ MySQLDataset1.fieldByName('adr_strasse').AsString;
        Name := 'Panel' + IntToStr(i);
         Parent := FrmAdrSearchFound.FrameSearchResults1;
    end;
      with TButton.Create(Self) do
      begin
        Top := k;
        Left := 360;
        Height := 17;
        Width := 75;
        Caption := 'bearbeiten';
        Name := 'Btn' + MySQLDataset1.fieldByName('adr_id').AsString;
        Tag := MySQLDataset1.fieldByName('adr_id').AsInteger;
        Parent := FrmAdrSearchFound.FrameSearchResults1;
        onClick := EditAdress;
    end;