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

[dec]

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:


procedure TForm1.Timer1Timer(Sender: TObject);
var
position: tpoint;
begin
getcursorpos(position);
label1.Caption := 'X: '+inttostr(position.x)+' Y: '+inttostr(position.y);
end;