Как определить координаты курсора мыши?

Code:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

begin

{©Drkb v.3}

  if (X >= 40 or X <= 234) and (Y >= 60 or Y <=258) then {здесь запуск твоей функции};

end;

Code:

{©Drkb v.3}

mouse.CursorPos.x

mouse.CursorPos.y

Code:

procedure Form1.Button1Click(Sender: TObject);

var

foo: TPoint;

begin

GetCursorPos(foo)

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

end;

Code:

procedure Form1.Button1Click(Sender: TObject);

var

foo: TPoint;

begin

GetCursorPos(foo);

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

end;