type TBitOPer = class(TObject)
   BoolMap: TBoolMap;
   constructor Create(InitMap:TBoolMap);
   destructor Destroy; override;
 public
   procedure Add(map: TBoolMap);
   function Get: TBoolMap;
 protected
   function Perform(a,b:boolean):boolean; virtual; abstract;
end;

type TXORer = class(TBitOPer)
  private
    function Perform(a,b:boolean):boolean; inline;
end;

type TORer = class(TBitOPer)
  private
    function Perform(a,b:boolean):boolean; inline;
end;