anchor.diff:      {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,Classname,'Starting Thread '+IntToHex(PtrInt(Self),8)+' in pos '+inttostr(i+1));{$ENDIF}
       Try
         Try
  -        BCExecute;
  +        if FExecuteUIThread then Synchronize(BCExecute) else BCExecute;
           FDebugStep := 'Finalized BCExecute';
         Finally
           Terminate;
  
positive.code:     constructor Create(CreateSuspended: Boolean);
      destructor Destroy; override;
      Property DebugStep : String read FDebugStep write FDebugStep;
      property Terminated;
    End;
  
  
negative.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;
  
  