procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize; //Initialise le générateur interne de nombre aléatoire avec une valeur aléatoire
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var i,j:integer;
begin
i:=Random(Form1.ClientWidth-Button1.Width); //Trouve un entier aléatroirement
j:=Random(Form1.ClientHeight-Button1.Height);
Button1.Left:=i; //Positionne le bouton
Button1.Top:=j;
end;