[Bars1992]

PHP код:

URL_Pay : string;
  Login : string;
  Pass : string;
  i:integer;
procedure TForm2.But_Pay_Button2Click(Sender: TObject);
begin
  for i:=0 to Listview1.Items.count-1 do
  begin
  URL_Pay := '' + Listview1.Items[i].SubItems[0];
  Login := '' + Listview1.Items[i].SubItems[1];
  Pass := '' + Listview1.Items[i].SubItems[2];
  Pay:=PayThread1.Create(true);
  Pay.Resume;
  end;
end;