[lmikle]

Код:

procedure TForm1.But_Pay_Button2Click(Sender: TObject);
var
s : integer; // счетчик цикло
Pay: TPayThread1;
begin
  for s:=0 to Listview1.Items.count-1 do
   begin
    Pay:=TPayThread1.Create(True);
    Pay.FreeOnTerminate := True;
    Pay.URL_Pay := Listview1.Items[s].SubItems[0];
    Pay.Resume; 
  end;

Код:

procedure PayThread1.Execute;
var
IdHTTP1_Pay:TIdHTTP;
i : integer; // счетчик цикло
s:TStringStream;
begin
 if URL_Pay = '' then exit;
 idHTTP1_Pay := TidHTTP.Create(nil);
 s:=TStringStream.Create;
 Try
   IdHTTP1_Pay.get(URL_Pay + 'login.php?r=',s);
 Finally
  s.Free;
  idHTTP1_Pay.Free;
 End;
end;