[pesi]

Код:

type
  TBot = class(TThread)
  private
	FUrl_Pay,
	FLogin,
	FPassword: String;
	http_1:TIdHTTP;
	IdCookieManager1_Pay: TIdCookieManager;
	RvRenderHTML2: TRvRenderHTML;
	IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
  protected
	procedure Execute; override;
  public
	constructor Create(CreateSuspended: Boolean; aUrl, aLog, aPas: String);
	destructor Destroy; override;
  end;

implementation

uses
	Unit1;

constructor TBot.Create(CreateSuspended: Boolean; aUrl, aLog, aPass: String);
begin
  inherited Create(CreateSuspended);
  FreeOnTerminate:= True;
  Priority:= tpLower;
  FUrl_Pay:= aUrl;
  FLogin:= aLog;
  FPassword:= aPass;
  http_1:= TIdHTTP.Create(Nil);
  IdCookieManager1_Pay:= TIdCookieManager.Create(Nil);
  RvRenderHTML2:= TRvRenderHTML.Create(Nil);
  IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.Create(Nil);

  http_1.AllowCookies:= True;
  http_1.HandleRedirects:= True;
  http_1.CookieManager:= IdCookieManager1_Pay;
end;  

destructor TBot.Destroy;
begin
  http_1.Free;
  IdCookieManager1_Pay.Free;
  RvRenderHTML2.Free;
  IdSSLIOHandlerSocketOpenSSL1.Free;
  inherited Destroy;
end;

procedure TBot.Execute;
begin
 try
  http_1.get('http://' + FUrl_Pay + 'login.php?r=',s);
 except
  Exit;
 end;
end;

Код:

type
  TForm1 = class(TForm)
    Button1: TButton;
  private
    BotArray: array of TBot;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1; 
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 I: Integer;
begin
  SetLength(BotArray, Listview1.Items.count);
  for I:= 0 to Listview1.Items.count-1 do
  begin
  	BotArray[i]:= TBot.Create(True);
  	BotArray[i].Resume;
  end;
end;