procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
//Cet evenement se produit lorsque la souris va sur le bouton
if Button1.Left=Form1.ClientWidth-Button1.Width-10 then
Button1.Left:=8;//Si Button1 est a la fin il revient a la position initiale
Button1.Left:=Button1.Left+1; //Prend la position de Button1 de gauche et ajoute 1
end;

procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
if Button2.Top=Form1.ClientHeight-Button2.Height-10 then Button2.Top:=48;//Si Button2 est a la fin il revient a la position initiale
Button2.Top:=Button2.Top+1; //Prend la position de Button2 du haut et ajoute 1
end;

procedure TForm1.Button3MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
Randomize; //Initialise la fonction Random
Button3.Left:=Random(Form1.ClientWidth-Button3.Width); //Choisis aleatoirement un nombre
Button3.Top:=Random(Form1.ClientHeight-Button3.Height); //Choisis aleatoirement un nombre
end;