forma tıklayınca button oluşturma

[beneynaa]

Merhaba Arkadaşlar,delphi de bi program yazmaya çalışıyorum ama hata veriyor çözemiyorum.formda fare ile herhangi bir yere tıklayınca button oluşturm olayı.yazdığım kodları ekliyorum:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

begin
i:=1;
x:=TButton.Create(Form1);
x.Caption:='button'+inttostr(i);
x.Top:=160+2*i;
x.Height:=30+2*i;
x.width:=30+2*i;
x.Parent:=Form1;
i:=i+1;

end;


üst var bloğuna da

var

Form1: TForm1;
i:integer;
x:TButton;

yazdım,hata nerde bulamıyorum.yalnız acil sınava gireceğim şimdiden teşekkürler....