anchor.diff:    TPCThreadClass = Class of TPCThread;
     TPCThread = Class(TThread)
     private
  -    FExecuteUIThread : Boolean;
       FDebugStep: String;
       FStartTickCount : TTickCount;
     protected
  
positive.code:     {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,Classname,'Starting Thread '+IntToHex(PtrInt(Self),8)+' in pos '+inttostr(i+1));{$ENDIF}
      Try
        Try
          if FExecuteUIThread then Synchronize(BCExecute) else BCExecute;
          FDebugStep := 'Finalized BCExecute';
        Finally
          Terminate;
  
negative.code:     constructor Create(CreateSuspended: Boolean);
      destructor Destroy; override;
      Property DebugStep : String read FDebugStep write FDebugStep;
      property Terminated;
    End;
  
  