anchor.diff:  
   procedure TImpl_oxml_mXmlElement._SetDateValue(const aValue: TDateTime);
   begin
  -  FNode^.NodeValue := mISOTime.ISODateToStr(aValue);
  +  FNode^.Text := mISOTime.ISODateToStr(aValue);
   end;
   
   function TImpl_oxml_mXmlElement._GetDateValue: TDateTime;
  
positive.code: 
  procedure TImpl_oxml_mXmlElement._SetIntegerValue(const aValue: integer);
  begin
    FNode^.NodeValue := IntToStr(aValue);
  end;
  
  function TImpl_oxml_mXmlElement._GetIntegerValue: integer;
  
negative.code:   tempValue : TDateTime;
  begin
    Result := 0;
    if FNode^.Text <>'' then
    begin
      tmp := FNode^.Text;
      if TryISOStrToDateTime(tmp, tempValue) then
        Result := tempValue
      else
  