Ошибка при работе с потоками

   FormatSettings.TimeSeparator:= '_';
    Assignfile(GoodFile, ExtractFilePath(ParamStr(0)) + 'Good_' + DateToStr(Date) + '_' + TimeToStr(Time) + '.txt');
      Rewrite(GoodFile);
    CloseFile(GoodFile);
    with Form1 do begin
      sLabel5.Caption:='0';
      sLabel6.Caption:='0';
       sLabel7.Caption:='0';
    end;
acc:=-1;
proxy:=-1;
Threads:=sSpinEdit1.Value;
 Work := true;
  for I := 0 to Threads do
  begin
    MyThread[I] := Thread.Create(False);
    MyThread[I].Priority := tpNormal;
    MyThread[I].Resume;
  end;

CriticalSection.Enter;
      Inc(Acc);
if Acc<base.Count-1 then acc:=Acc else Work:=false;
CriticalSection.Leave;
CriticalSection2.Enter;
 Inc(proxy);
 if proxy=prx.Count-1 then proxy:=0;
CriticalSection2.Leave;

  Synchronize(sunc);
      FreeAndNil(Http);
      FreeAndNil(CriticalSection);
      FreeAndNil(contains);
      FreeAndNil(CriticalSection2);
 end;
 Dec(Threads);

constructor Thread.Create(CodeTwinVi: Boolean);
begin
  inherited Create(CodeTwinVi);
end;