Posición del ratón en cualquier punto de la pantalla
 

Cómo saber la posición del ratón en cualquier punto de la pantalla.

Creamos un Timer, por ejemplo, para la visualización, supongamos que con un intervalo de 100 y en el evento OnTimer un procedure de esta forma:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
  position: tpoint;
begin
  getcursorpos(position);
  label1.Caption := 'X: '+inttostr(position.x)+' Y: '+inttostr(position.y);
end;