Prepáč, ale ten kód čo si sem dal naozaj dúfaš, že bude fungovať?

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
  begin     // toto tu Ti nechýba???  """"""""""""""""""""""""""""""""""""""""""""""""""""""""
     mouse_event(MOUSEEVENTF_LEFTDOWN,Pozice.x,Pozice.y ,0,0);
     mouse_event(MOUSEEVENTF_LEFTUP,Pozice.x,Pozice.y,0 ,0);
     GetDoubleClickTime;
   end; /// samozrejme end !!!!!!
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  label1.Caption:=inttostr(strtoint(label1.caption)+ 1);
end;