anchor.diff:  
   procedure TImpl_oxml_mXmlElement._SetFloatValue(const aValue: double);
   begin
  -  FNode^.NodeValue := FloatToStr(aValue, FFormatSettings);
  +  FNode^.Text := FloatToStr(aValue, FFormatSettings);
   end;
   
   function TImpl_oxml_mXmlElement._GetFloatValue: double;
  
positive.code: 
  procedure TImpl_oxml_mXmlElement._SetDateValue(const aValue: TDateTime);
  begin
    FNode^.NodeValue := mISOTime.ISODateToStr(aValue);
  end;
  
  function TImpl_oxml_mXmlElement._GetDateValue: TDateTime;
  
negative.code:   tempValue : TDateTime;
  begin
    Result := 0;
    if FNode^.Text <> '' then
    begin
      tmp := FNode^.Text;
      if TryISOStrToDate(tmp, tempValue) then
        Result := tempValue
      else
  