anchor.diff:  
   { TMapArea }
   
  +//-- BG ---------------------------------------------------------- 25.06.2014 --
  +destructor TMapArea.Destroy;
  +begin
  +  if FRegion <> 0 then
  +    DeleteObject(FRegion);
  +  inherited;
  +end;
  +
   //-- BG ---------------------------------------------------------- 31.12.2011 --
   function TMapArea.PtInArea(X, Y: Integer): Boolean;
   begin
  
positive.code: { TMapAreaList }
  
  //-- BG ---------------------------------------------------------- 31.12.2011 --
  function TMapAreaList.getArea(Index: Integer): TMapArea;
  begin
    Result := get(Index);
  end;
  
  { TMapItem }
  
negative.code:     FTarget: ThtString;
      FTitle: ThtString;
    public
      destructor Destroy; override;
      function PtInArea(X, Y: Integer): Boolean;
      property HRef: ThtString read FHRef;
      property Target: ThtString read FTarget;
  