Обработать событие

Axelus

Уважаемые коллеги!

С помощью скрипта я создаю кнопку на внешней форме. Кнопка создается, все ок.
Далее мне требуется обработать событие OnClick. Но в момент нажатия кнопки вылетает ошибка 'Access violetion at address 004CE7A7 in module ... Read of address 0000004A'.
Подскажите, что я делаю не так?

Вот мой код:

var
  i: Integer;
  b: TButton;

procedure ButtonClick(Sender: TButton);
begin
  ShowMessage('123');
end;

begin
  b := TButton.Create(fClient);
  b.Parent := fClient;
  b.SetBounds(820, 184, 91, 25);
  b.Name := 'bbMyButton';
  b.Caption := '123';
  b.OnClick := @ButtonClick;
end.

ladrus

А де ты видел такое описание событий
procedure ButtonClick(Sender: TButton);
попробуй
procedure ButtonClick(Sender: TObject);