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

procedure TForm1.Timer1Timer(Sender: TObject);
var
  CursorPos: TPoint;
begin
  Timer1.Interval := 100;
  GetCursorPos(CursorPos);
  Caption := IntToStr(CursorPos.X) + ' - ' + IntToStr(CursorPos.Y);
end;                    

1:
2:
3:

  if Shift <> [] then
    Mouse.CursorPos := MousePos;
  MousePos := Mouse.CursorPos;                    

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

procedure TForm1.Timer1Timer(Sender: TObject);
var
  CursorPos: TPoint;
begin
  Timer1.Interval := 100;
  GetCursorPos(CursorPos);
  Caption := 'x= ' + IntToStr(CursorPos.x - Left) + ' / y= ' + IntToStr(CursorPos.y - Top);
end;                    

1:
2:
3:
4:
5:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ListBox1.Items.Insert(0, IntToStr(X) + ' - ' + IntToStr(Y));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

var
  Form1: TForm1;
  MX, MY: Integer;
  DX, DY: Integer;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  MX := ClientWidth div 2;
  MY := ClientHeight div 2;
  DX := 0;
  DY := 0;
  SetCursorPos(MX + Left, MY + Top);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  F: Word;
begin
  //Screen.Cursor := crNone; 
  F := 200;
  if X > (MX + F) then begin
    DX := DX + (X - MX);
    SetCursorPos(MX + Left, Y + Top);
  end;
  if X < (MX - F) then begin
    DX := DX - (MX - X);
    SetCursorPos(MX + Left, Y + Top);
  end;
  if Y > (MY + F) then begin
    DY := DY + (Y - MY);
    SetCursorPos(X + Left, MY + Top);
  end;
  if Y < (MY - F) then begin
    DY := DY - (MY - Y);
    SetCursorPos(X + Left, MY + Top);
  end;
  //Werte Anzeigen
  Caption := 'X = ' + IntToStr(DX + X) + ' - ' + 'Y = ' + IntToStr(DY + Y);
  //Gummiband Anzeigen
  Canvas.Brush.Color := clBtnFace;
  Canvas.FillRect(ClientRect);
  Canvas.MoveTo(MX, MY);
  Canvas.LineTo(DX + X, DY + Y);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;