[Ama]

А так:

Код:

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;
    Pay.URL_Pay := Listview1.Items[s].SubItems[0];
    Pay.Suspend;
    Pay.Resume; 
  end;

и

Код:

....
public
 URL_Pay: string;
...

constructor PayThread1.Create;
begin
   Create(True);
   URL_Pay:= '';
   FreeOnTerminate := True;
   OnTerminate := ThreadExit;
   Priority := tpNormal;
end;

procedure PayThread1.ThreadExit(Sender: TObject);
begin
  Dec(alive);
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;
 IdHTTP1_Pay.get(URL_Pay + 'login.php?r=',s);
end;