type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
procedure Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

procedure TForm1.Click(Sender: TObject);
begin
// do something
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
button1.OnClick := Click;
end;

end.
А как сделать чтобы "procedure Click" была не методом класса, а отдельно стоящей функцией