anchor.diff:      procedure SearchAround(aX,aY: SmallInt); virtual;
     public
       constructor Create(const aScanEightTiles: Boolean = False); virtual;
  -    destructor Destroy(); override;
  +    destructor Destroy; override;
       procedure QuickFlood(aX,aY: SmallInt); virtual;
     end;
   
  
positive.code: { TKMQuickFlood }
  constructor TKMQuickFlood.Create(const aScanEightTiles: Boolean = False);
  begin
    fScanEightTiles := aScanEightTiles;
    // Create first TElement and keep it all the time (queue is empty if fStartQueue = fEndQueue)
    New(fStartQueue);
  
negative.code:     fMinLimit, fMaxLimit: TKMPoint;
      fScanEightTiles: Boolean; // True = scan 8 tiles around, False = scan 4 tiles (no performance impact!)
  
      procedure MakeNewQueue; virtual;
      procedure InsertInQueue(const aX,aY: SmallInt); virtual;
      function RemoveFromQueue(var aX,aY: SmallInt): Boolean; virtual;
      function IsQueueEmpty: Boolean; inline;
  