Nejde to. Vždy se zvíší jenom o jednu.

Miniaplikace

http://i53.tinypic.com/1qoidk.jpg


var
pocet,i:integer;
Pozice:TPoint;
procedure TForm1.Button1Click(Sender: TObject);
begin
pocet:=strtoint(edit1.text);
SetCursorPos(200,120);
for i:=0 to pocet do
mouse_event(MOUSEEVENTF_LEFTDOWN,Pozice.x,Pozice.y ,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,Pozice.x,Pozice.y,0 ,0);
GetDoubleClickTime;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
label1.Caption:=inttostr(strtoint(label1.caption)+ 1);
end;