anchor.diff:    TKMListUnique<T> = class(TList<T>)
     public
       function Add(const Value: T): Integer; reintroduce;
  +  end;
  +
  +  TKMWorkerThreadTask = class
  +    Proc: TProc;
  +  end;
  +
  +  TKMWorkerThread = class(TThread)
  +  private
  +    fTaskQueue: TQueue<TKMWorkerThreadTask>;
  +  public
  +    constructor Create;
  +    procedure Execute; override;
  +    procedure QueueWork(aProc: TProc);
     end;
   
     function GetCardinality(const PSet: PByteArray; const SizeOfSet(*in bytes*): Integer): Integer; inline;
  
positive.code: end;
  
  
  end.
  
negative.code: {$I KaM_Remake.inc}
  interface
  uses
    Classes, SysUtils, TypInfo, Generics.Collections;
  
  type
    ERuntimeTypeError = class(Exception);
  