He estado probando la opción que cita Román y no hay comparación me quedo con ella.
Código Delphi
[-]
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption:=IntToStr(Mouse.CursorPos.y)+','+IntToStr(Mouse.CursorPos.x);
end;
Un Saludo.