Kode til knap

Du kan bare på n MouseEnter på din ranp sætte en ny top og Left

Undskyld, men jeg er ret dum til der her. Så jeg vil være glad hvis du gad at forklarer lidt nærmere. :)

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
  Button1.Left := random(ClientWidth - Button1.Width);
  Button1.Top := random(ClientHeight - Button1.Height);
end;

Der er fejl i:
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);

Lig efter MouseMove er der fejl..

Du er RET GRØN ?

1)
  Sæt en knap på en form
2)
  Lav en OnMouseMoveEnvet på den kanp.
3)
  Skriv de følgernde to linjers kode i din event handler :
  Button1.Left := random(ClientWidth - Button1.Width);
  Button1.Top := random(ClientHeight - Button1.Height);

Tak!..