Динамические кнопки

[antsa]

Доброго дня. Вопрос я динамически создал кнопки

        begin
          SetLength(MyMasBut,Length(MyMasBut)+1);
          MyMasBut[Length(MyMasBut)-1]:=TButton.Create(self);
          MyMasBut[Length(MyMasBut)-1].Parent:=Form1;
          MyMasBut[Length(MyMasBut)-1].Height:=40;
          MyMasBut[Length(MyMasBut)-1].Width:=250;
          MyMasBut[Length(MyMasBut)-1].Left:=639;
          MyMasBut[Length(MyMasBut)-1].Top:=250+Length(MyMasBut)*80;
          MyMasBut[Length(MyMasBut)-1].Caption:=Sr.Name;
          @MyMasBut[Length(MyMasBut)-1].OnClick:=@TForm1.MyProcOnClick;
        end;

кнопки храняться в динамическом массиве который описан

MyMasBut : array of TButton;

и есть фунция моя

procedure TForm1.MyProcOnClick(DirName:string);
begin

end;

Как видно выше она является обработчиком событий клика мыши на созданной кнопке. Уважаемые знатоки, внимание вопрос: "Как узнать по какой кнопке был произведен клик?"
Т.е. мне нужно знать имя кнопки (Caption) по которой произведен клик. пытаюсь передать это в параметрах

@MyMasBut[Length(MyMasBut)-1].OnClick:=@TForm1.MyProcOnClick(Sr.Name);

пишет что This form method call only allowed dor class method
так как узнать имя кнопки?

[Kotofff]

procedure TForm1.MyProcOnClick(DirName:string);
begin

end;

Нужно так :

procedure TForm1.MyProcOnClick(Sender: TObject);
begin
  Cap := (Sender as TButton).Caption; // вот тут и будет тебе заголовок нажатой кнопки
end;

Именно через конструкцию (Sender as TButton) ты получаешь доступ к кнопке ....

[antsa]

Да. Уже понял. Вот здесь написано это:
http://programmersforum.ru/showthread.php?t=34547