[LELIKS]

Вот пример:

Код:

type
  TForm1 = class(TForm)
  Edit1: TEdit
procedure Button1Click(Sender: TObject);
...
...
procedure TForm1.Button1Click(Sender: TObject);
var
 Data:TStringList;
 i:Byte;
begin
 Data:=TStringList.Create;
 for i := 1 to StrToInt (Edit1.Text) do begin
 S:=IdHTTP1.Post('http://kremlin.ru/, Data);
 Application.ProcessMessages();
 ...
end;

Админ: Учимся корректно оформлять код!

Нужен пример кода в один поток, принцип работы как в примере.