[M.A.D.M.A.N.]

Код:

procedure FooOnClick(sender: tobject);
...
procedure TForm1.FooOnClick(sender: tobject)
begin
...
end;
...
btn1.onclick := FooOnClick;