Button + Edit Feld - zur Laufzeit entfernen?

[atgis]

Aber leider kann ich so den Button nicht löschen...

Delphi-Quellcode:

  Bt:= TBitBtn(self.FindComponent('BitBtn'+IntToStr(i)));
  if System.Assigned(Bt) then
  begin
    dec(i);
    Bt.Free;
  end;

EDIT: Geht doch hatte Edt.Free geschrieben... Gut Danke für den Tipp...

So...jetzt will ich ja per Klick auf den Button einen Sound abspielen...den jeweiligen Pfad zur Datei, bekomme ich aus dem Edit Feld... also Edit+IntToStr(i)...

Aufrufen will ich die Prozedure so:

Delphi-Quellcode:

with TBitBtn.Create(self) do
 begin
   Parent:= Self;
   Name:= 'BitBtn'+IntToStr(i);
   Caption:= '>';
   Left:= 243;
   Top:= 6+(i)*(25);
   Width:= 22;
   Height:= 22;
   OnClick:=ButtonClick; //<--- hier der Aufruf 
 end;
end;

So spielt es aber immer den Sound aus dem 1.Edit Feld ab...ist ja klar

Delphi-Quellcode:

procedure TForm1.ButtonClick(Sender: TObject);
begin
 sndPlaySound(PChar(Edit.Text),SND_ASYNC);
end;

Also müsste ich schon beim erzeugen des Buttons
sndPlaySound(PChar(Edit + i.Text),SND_ASYNC); mit einen OnClick Ereignis zuordnen?

Wie mache ich das?

OnClick:= ?