Динамически созданный обьект, процедуры

[heart]

Динамически создаю button

procedure TOMFMW.Button2Click(Sender: TObject);
var 
 button: array [1..4] of Tbutton;
begin

button[1]:=Tbutton.Create(Form1);
button[1].Parent:=Form1;
button[1].Name:='button1';
button[1].Visible:=true;
button[1].Top:=50;
button[1].Left:=40;
button[1].Caption:='button1';

end;

как мне сделать для нее процедуру, например, когда на нее кликнут мышью, то поменять свойства каптион например на button2....

[evg_m]

button[1].onclick:=myprocclick;

[Скандербег]

Опоздал.

[heart]

спасибо огромное!!! ваще помогли.