[UFO 007]

Доброго всем времени суток!
Пардоньте, что не начал новую тему(топик) - неча форум захламлять, когда на аналогичный предмет можно и здесь пообщаться.
Проблемстон следующий: динамически (вродь как Run-Time) создаю кнопочку:

Код:

Procedure CreateButtons2(DirName: string; Left_: integer);
begin
  Sbutton2:= TSoundButton.Create(Form1);
  with Sbutton2 do
  begin
    Caption := DirName;
    parent:=Form1;
    Height:= 25;
    Width:= 100;
    Top := 400;
    Left := Left_;
    Visible:= True;
    OnClick := Form1.SButton2Click;
  end;
end;

(декларация Sbutton2 : TSoundButton - глобальная) и при нажатии кн. "Назад" надо её ликвидировать:

Код:

procedure TForm1.ButtBackClick(Sender: TObject);
var
  i: integer;
begin
  ListBox1.Items.Add('ButtBackClick');
  For i:=0 to Form1.ControlCount-1 do
  if Form1.Controls[i].ClassType = TSoundButton then
  begin    
    ListBox1.Items.Add( SButton2.caption);
    SButton2.Free;
  end;
end;

и caption её я видел пока не добавил SButton2.Free; - вот тут-то и начались ГРАБЕЛЬКИ... Хэлп, плз, кто может...

З. Ы. А ежели кнопок будет 2 или 3 или ... их как "убивать"?