[UFO 007]

Доброго всем времени суток!
Допустим, что имеем:

Код:

type
  TSoundButton = class(TButton)
.....

Procedure CreateButtons(DirName: string);
var
  Sbutton1 : TSoundButton;
begin
  Sbutton1:= TSoundButton.Create(Form1);//ñîçäà¸ì êíîïêó íà ôîðìå
  with Sbutton1 do
  begin
    Name:= 'SButton' + inttostr(ButCount);
    Height:= 25;
    Width:= 170;
    Left := 8;
    Top := Top_;
    Caption := DirName;
    Enabled:= true;
    Visible := true;
    parent:=form1.ScrollBox1;
    Sbutton1.OnClick := Form1.SButtonClick;
form1.ListBox1.Items.Add(Sbutton1.Name);
  end;
  Top_:= Top_ + 30;
  Inc (ButCount);
end;

procedure TForm1.SButtonClick(Sender: TObject);
....

... вследствие чего на форме создаётся столько кнопок, сколько папок на диске(подпапок в папке) например: Antivir, System, Util...
Так вот и сам вопрос: как мне из обработчика события Sbutton1.OnClick добраться(использовать) до св-ва Caption := DirName; RunTime созданной Sbutton?

Заранее благодарен