anchor.diff:      function NodeInformation(const Node: PCPFNode): string;
       function HotPoolInformation: string;
       procedure ClipHotPoolInformation;
  +    procedure SaveHotPoolToFile(const FileName: string = 'HotPool.txt');
     {$endif}
     public
       {$ifdef CPFLIB}procedure{$else}constructor{$endif}
  
positive.code: end;
  
  function TTileMap.HotPoolInformation: string;
  begin
    {$message 'todo'}
  end;
  
  procedure TTileMap.ClipHotPoolInformation;
  begin
    Clipboard.AsText := HotPoolInformation;
  end;
  {$endif}
  
  
negative.code:           Right := ChildNode.Next;
            Node{Left}.Next := Right;
            Right.Prev := Node{Left};
  
            if (ChildNode = Store.Top.Node) then
            begin
              Store.Top.Node := Right;
              Store.Top.SortValue := Right.SortValue;
            end;
          end;
        end;
  
  