function DoIt : Boolean;
Var
 http : TidHttp;
 html : String;
 Data : TStrings;
begin
 http:=TidHTTP.Create(self);
 Data :=TStringList.Create;

 Data.Add('y=12');
 Data.Add('x=13');
 try
  html:=http.Post('http://www.test.com/test.php',Data); 
  Result:=True;
 except
  Result:=False;
 end;
 Data.Free;
 http.Free;
end;

Procedure ManyAccs(cnt : Integer);
Var
  i : integer;
begin
  i:=1;
  repeat
    if DoIt then inc(i);
  until i<cnt;

end;