anchor.diff:      FType: AnsiString;
       function GetIdx: integer;
       function GetL: integer; inline;
  +    function GetSubtype: AnsiString;
  +    function GetType: AnsiString;
       function GetX: integer; inline;
       function GetY: integer; inline;
   
  
positive.code: function TMapObject.Serialize(AHandler: TVCMIJSONStreamer): TJSONData;
  var
    opt_json: TJSONData;
  begin
    Result := AHandler.ObjectToJson(Self);
  
    if HasOptions then
    begin
  
negative.code:   Result := FPosition.L;
  end;
  
  function TMapObject.GetSubtype: AnsiString;
  begin
    Result := FSubtype;
  end;
  
  function TMapObject.GetType: AnsiString;
  begin
    Result := FType;
  end;
  
  function TMapObject.GetX: integer;
  begin
    Result := FPosition.X;
  