Cómo saber la posición del ratón en 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;
end.