Присвоение процедур компонентам

[N!ckeL]

Нужно создавать компоненты в RunTime вот пишу:

procedure proc1:stdcall;
begin
 close;
end;

procedure Tform1.button1.click(sender:tobject);
var
 but:tbutton;
begin
 but:=tbutton.create(owner);
 but.caption:='Выход';
 but.OnClick:=proc1;{вот здесь ошибка, пробовал даже @proc1 писать, всё равно ошибку выдаёт..}
 form1.insertcomponent(but);
end;

Как можно исправить?

[B_N]

Почему stdcall, если в дельфи по умолчанию используется fastcall?

[N!ckeL]

Почему stdcall, если в дельфи по умолчанию используется fastcall?

Объявил её просто

procedure proc1;

Выдал ошибку:
Incompatible types: 'Parameter lists differ'

[Somebody]

И ещё - proc1 должна быть в каком-нибудь объекте. Будет ли она в TForm1, TMyCoolestButton или где ещё, это вроде неважно.
-----
Да, к тому же procedure TSomeClass.proc1(Sender:TObject);

[N!ckeL]

Всё работает всем спасибо!!!