[bulldog]

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

Код:

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;

и код потока

Код:

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;

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