1:
2:
3:
4:
5:
6:

var
  Punkt: TPoint;
begin
  GetCursorPos(Punkt);
  //Mit Punkt.X und Punkt.Y kannst du dann die Koordinaten bekommen
  ...                    

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

  private
   procedure WMMOUSEMOVE(var msg : TMessage); message WM_MOUSEMOVE;
{...}

procedure TForm1.WMMOUSEMOVE(var msg : TMessage);
var
 aPoint : TPoint;
begin
 GetCursorPos(aPoint);
 Form1.Caption := 'x: ' + IntToStr(aPoint.x) + ' y: ' + IntToStr(aPoint.x);
end;