anchor.diff:  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;
   
  
positive.code:   TPCThreadClass = Class of TPCThread;
    TPCThread = Class(TThread)
    private
      FDebugStep: String;
      FStartTickCount : TTickCount;
    protected
  
negative.code:     constructor Create(CreateSuspended: Boolean);
      destructor Destroy; override;
      Property DebugStep : String read FDebugStep write FDebugStep;
      property ExecuteUIThread : Boolean read FExecuteUIThread write FExecuteUIThread;
      property Terminated;
    End;
  
  