[Ama]

В коде потока в разделе public объяви переменную URL_Pay и
Попробуй так:

Код:

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

А в потоке попробу так:

Код:

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

constructor PayThread1.Create;
begin
   Create(True);
   URL_Pay:= '';
   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;
begin
 if URL_Pay = '' then exit;
 idHTTP1_Pay := TidHTTP.Create(nil);
 s:=TStringStream.Create;
 begin
  IdHTTP1_Pay.get(URL_Pay + 'login.php?r=',s);
 end;

не тестил но думаю что-то должно получиться...