Ошибка class EStringListError в delphi 7

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, SyncObjs;
 
type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    btn2: TButton;
    pb1: TProgressBar;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    dlgOpen1: TOpenDialog;
    idhtp1: TIdHTTP;
    UpDown1: TUpDown;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  Potok = class(TThread)
  private
   FAcc : string;
   FPas : string;
   Rez : Integer;
  protected
    procedure Execute; override;
  public
    procedure Sync;
    constructor Create(CreateSuspended: Boolean);
  end;
 
var
  Form1: TForm1;
  Accounts:Tstringlist;
  PT, Acc:integer;
  Work:boolean;
  CS: TCriticalSection;
  Good, Bad: textfile;
 
implementation
 
{$R *.dfm}
 
constructor Potok.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  FreeONTerminate:=true;
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  dlgOpen1.InitialDir:=ExtractFilePath(Application.ExeName);
   if dlgOpen1.Execute then
    begin
     Accounts.Clear;
     Accounts.LoadFromFile(dlgOpen1.FileName);
    end;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
  AssignFile(Good, ExtractFilePath(Application.ExeName)+ 'Good.txt');
  Rewrite(Good);
  CloseFile(Good);
  AssignFile(Bad, ExtractFilePath(Application.ExeName)+ 'Bad.txt');
  Rewrite(Bad);
  CloseFile(Bad);
  //lbl2.Caption:=0;
  //lbl4.Caption:=0;
  pb1.Max:= Accounts.Count;
  pb1.Position:=0;
  Acc:=-1;
  Work:=True;
   for PT:=1 to StrToInt(edt1.Text) do
       Potok.Create(False);
       PT:= StrToInt(edt1.Text);
end;
 
procedure Potok.Execute;
  var
    CurAcc:integer;
    data:Tstringlist;
    HTTP: TIdHTTP;
    html: string;
begin
  while Work do
   begin
     CS.Enter;
     Inc(Acc);
     if Acc<Accounts.Count then
        CurAcc:= Acc
     else
        Work:= False;
        Cs.Leave;
 
     if Work then
      begin
        FAcc:= Copy(Accounts[CurAcc],1,Pos(';',Accounts[CurAcc])-1);
        FPas:= Copy(Accounts[CurAcc],Pos(';',Accounts[CurAcc])+1,Length(Accounts[CurAcc]));
 
        data:= TStringList.Create;
        data.Add('user='+ FAcc);
        data.Add('password='+ FPas);
        data.Add('rem=1');
        data.Add('a=2');
        data.Add('ajax=1');
        data.Add('rnd=872');
        data.Add('_tp_=xml');
        HTTP:= TIdHTTP.Create(nil);
 
      try
         Http.Post('http://diz-cs.ru/index/sub/', data);
         html:= Http.Get('http://diz-cs.ru/');
       if (Pos ('/index/10', html)<>0) then
        begin
         Rez:=1;
 
        end
       else
        begin
         rez:=-1;
 
        end;
       except
         rez:=0;
 
         end;
         HTTP.Free;
         data.Free;
 
         Synchronize(Sync);
      end;
   end;
        dec(PT);
     if PT=0 then ShowMessage('ок');
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Accounts.Free;
 CS.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 Accounts:=Tstringlist.create;
 CS:=TcriticalSection.create;
end;
 
 
procedure Potok.Sync;
begin
   case rez of
    1: begin
          Append(Good);
          Writeln(Good,FAcc+';'+FPas);
          Closefile(Good);
          Form1.lbl2.Caption:=IntToStr(StrToInt(Form1.lbl2.Caption)+1);
          Form1.pb1.Position:=Form1.pb1.Position+1;
       end;
 
   -1: begin
           Append(Bad);
           Writeln(Bad,FAcc+';'+FPas);
           Closefile(Bad);
           Form1.lbl4.Caption:=IntToStr(StrToInt(Form1.lbl4.Caption)+1);
           Form1.pb1.Position:=Form1.pb1.Position+1;
       end;
 
    0: begin
           Accounts.Add(FAcc+';'+FPas);
           Form1.pb1.Position:= Form1.pb1.Position +1;
       end;
end;
end;    
end.

123123;3214124321
hjvbkjvjkh;sdaf9032
ijh796;2893diosad
nmjipobn72310;324231
itester;2580456
151654156;hvghjv
ghdc;786
jklnb78;8hjn