1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  tmp: Integer;
begin
  tmp:=Mouse.CursorPos.X-Image1.Left;
  if abs(tmp)>10 then tmp:=10; //abs=Betrag (Unit Math)
  Image1.Left:=Image1.Left+tmp;

  tmp:=Mouse.CursorPos.Y-Image1.Top;
  if abs(tmp)>10 then tmp:=10;
  Image1.Top:=Image1.Top+tmp;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  tmp: Integer;
begin
  tmp:=Mouse.CursorPos.X-Image1.Left;
  if abs(tmp)>10 then tmp:=10*sign(tmp); //abs=Betrag (Unit Math)
  Image1.Left:=Image1.Left+tmp;

  tmp:=Mouse.CursorPos.Y-Image1.Top;
  if abs(tmp)>10 then tmp:=10*sign(tmp);
  Image1.Top:=Image1.Top+tmp;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm2.Timer1Timer(Sender: TObject);
var
  tmp: Integer;
  point: TPoint;
begin
  point:=ScreenToClient(Mouse.CursorPos);
  tmp:= point.X-Shape1.Left;
  if abs(tmp)>10 then tmp:=10*sign(tmp); //abs=Betrag (Unit Math)
  Shape1.Left:=Shape1.Left+tmp;


  tmp:=point.Y-Shape1.Top;
  if abs(tmp)>10 then tmp:=10*sign(tmp);
  Shape1.Top:=Shape1.Top+tmp;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.GotoMouse;
 var isFinish : boolean;
begin

  isFinish := false;
while not isFinish do   begin
 application.ProcessMessages;
if mouse.CursorPos.X > SP.Left then sp.Left := sp.Left +1 else sp.Left := sp.left -1;
     application.ProcessMessages;
if mouse.CursorPos.Y > SP.Top then sp.Top := sp.Top +1 else sp.top := sp.top -1;
 application.ProcessMessages;
 if mouse.CursorPos.X = sp.Left then if mouse.CursorPos.Y = sp.Top then isFinish := true;
 end;


end;