[NIch]

Вот небольшой код

Код:

procedure TForm1.Button1Click(Sender: TObject);
var 
 cur:TPoint;
begin
  Windows.GetCursorPos(Cur);
  ShowMessage('Координаты мыши: X='+IntToStr(cur.X)+'Y='+IntToStr(cur.Y));
end;