Delphi/Lazarus: Recuperar la Posición del Cursor relativa a Form/Ventana

Con la función GetCursorPos(), puede obtener la posición del cursor en relación con la pantalla. Aquí se muestra una forma de obtener la posición del cursor en relación con una form (ventana):

var
  P: TPoint;
begin
  GetCursorPos(P);
  P := Form1.ScreenToClient(P);
  Form1.Caption := inttostr(P.X + ' ' + inttostr(P.Y));
end;

Primero, usamos GetCursorPos() para guardar la posición actual del mouse en el punto P. Después de eso, convertimos las coordenadas de la pantalla a las coordenadas del formulario Form1 usando ScreenToClient(). Finalmente, generamos las coordenadas convertidas como título de nuestra ventana.