anchor.diff:      constructor Create(CreateSuspended: Boolean);
       destructor Destroy; override;
       Property DebugStep : String read FDebugStep write FDebugStep;
  -    property ExecuteUIThread : Boolean read FExecuteUIThread write FExecuteUIThread;
       property Terminated;
     End;
   
  
positive.code: constructor TPCThread.Create(CreateSuspended: Boolean);
  begin
    inherited Create(CreateSuspended);
    FExecuteUIThread := false;
    {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,Classname,'Created Thread '+IntToHex(PtrInt(Self),8));{$ENDIF}
  end;
  
  
negative.code:     {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,Classname,'Starting Thread '+IntToHex(PtrInt(Self),8)+' in pos '+inttostr(i+1));{$ENDIF}
      Try
        Try
          BCExecute;
          FDebugStep := 'Finalized BCExecute';
        Finally
          Terminate;
  