Простой Кликер

[Mcljoker]

Всем доброе время суток у меня есть 2 вопроса, помогите разобраться
1)мне нужно определить координаты мыши функция getCursorPos определяет только над формой, а как сделать определение координат вне формы?
2)есть едит и код нажатия мыши:
var X, Y: Integer;
begin

X := StrToIntDef(label1.Caption, 0);
Y := StrToIntDef(label2.Caption, 0);

SetCursorPos(X, Y);
mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0);

как сделать что бы он воспроизводился столько раз сколько написано в едите?

[SCratORS]

GetCursorPos
Описание:
function GetCursorPos(var Point: TPoint);
Считывает экpанные кооpдинаты текущего положения куpсоpа.
Параметры:
Point: Пpинимающая стpуктуpа TPoint.

var
I:integer;
Begin
For I:= 0 to StrToInt(Edit1.text) do
begin
//Цикл кликов
end;
...

[SCratORS]

var
Pos:TPoint;
begin
GetCursorPos(pos);
pos.X // - тут позиция по Х
pos.Y // - тут позиция по Y