procedure Form1.Button1Click(Sender: TObject);

var

foo: TPoint;

begin

GetCursorPos(foo);

ShowMessage('(' + IntToStr(foo.X) + ' ,' + IntToStr(foo.Y) + ')');

end;