Grille magnétique sur un TImage...

Réponse acceptée !
essaye ça apparemnt ça marche
var
  lastpoint:Tpoint;//memorisation du point

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var Tmp:Tpoint;
begin
 with image1 do
 begin
 GetCursorPos(Tmp);
 if  (lastpoint.X=0)and(lastpoint.Y=0) then//initialisation du point d'entree
 with image1 do
 begin
 lastpoint.X:=tmp.X;
 lastpoint.Y:=tmp.Y;
 end;
 if (lastpoint.X<>Tmp.X)then
 begin
 if Tmp.X>lastpoint.X+5 then lastpoint.X:=lastpoint.X+10//10 pour le pas de grille si on dépasse la moitie on va au point suivant et on memorise la nouvelle position
 else
 if Tmp.X<lastpoint.X-5 then lastpoint.X:=lastpoint.X-10 ;
 Tmp.X:=lastpoint.X;
 end;
 if (lastpoint.Y<>Tmp.Y)then
 begin
 if Tmp.Y>lastpoint.Y+5 then lastpoint.Y:=lastpoint.Y+10
 else
 if Tmp.Y<lastpoint.Y-5 then lastpoint.Y:=lastpoint.Y-10 ;
 Tmp.Y:=lastpoint.Y;
 end;
 SetCursorPos(Tmp.X, Tmp.Y);
sleep(50); //pour visualiser le magnetisme

 end;
end;
bon ce n'est pas optimisé mais c'est une piste
bonne prog