anchor.diff:             , KOL, err
            {$else}
              , SysUtils
  -           {$if Defined(CPFDBG) or Defined(CPF_GENERATE_LOOKUPS)}, Classes{$ifend}
  +           {$if Defined(CPFDBG) or Defined(CPF_GENERATE_LOOKUPS)}
  +           , Classes, Clipbrd
  +           {$ifend}
            {$endif}
          {$endif};
   
  
positive.code:         UpdateId: Cardinal;
          Count: Cardinal;
  
          CardinalsDiagonal: array[0..255] of Cardinal;
          CardinalsLine: array[0..255] of Cardinal;
          case Boolean of
  
negative.code:   begin
      Result := CellInformation(Node.Coordinates.X, Node.Coordinates.Y);
    end;
  end;
  
  function TTileMap.HotPoolInformation: string;
  begin
    {$message 'todo'}
  end;
  
  procedure TTileMap.ClipHotPoolInformation;
  begin
    Clipboard.AsText := HotPoolInformation;
  end;
  {$endif}
  
  