[bulldog]

не могу сообразить, в listview есть данные, при нажатие на кнопку поток начинает работать с начала с первой строкой, а потом со второй, а мне нужно что бы он со всеми сразу работал, код вот:

Код:

1 2 3 4 5 6 7 8

procedure TForm1.But_Pay_Button2Click(Sender: TObject); var s : integer; // счетчик цикло URL_Pay : String; // Список сайтов begin   for s:=0 to Listview1.Items.count-1 do     URL_Pay := '' + Listview1.Items[0].SubItems[0];   Pay:=PayThread1.Create;

и код потока

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

constructor PayThread1.Create; begin    Create(True);    FreeOnTerminate := True;    OnTerminate := ThreadExit;    Priority := tpNormal;    Resume; end;   procedure PayThread1.ThreadExit(Sender: TObject); begin   Dec(alive); end;   procedure PayThread1.Execute; var IdHTTP1_Pay:TIdHTTP; i : integer; // счетчик цикло s:TStringStream; URL_Pay:String; begin   for i:=0 to Form2.Listview1.Items.count-1 do   begin   URL_Pay := '' + Form2.Listview1.Items[i].SubItems[0]; idHTTP1_Pay := TidHTTP.Create(nil); s:=TStringStream.Create; begin Form2.IdHTTP1_Pay.get('' + URL_Pay + 'login.php?r=',s); end;

что я делаю не так?