[v1s2222]

Код:

procedure MyClick(Sender: TObject);
begin
  Showessage('Click');
end;
...
  button.OnClick := MyClick;
...