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:   tempValue : TDateTime;
  begin
    Result := 0;
    if FNode^.NodeValue <>'' then
    begin
      tmp := FNode^.NodeValue;
      if TryISOStrToDateTime(tmp, tempValue) then
        Result := tempValue
      else
  
negative.code:   tempValue : integer;
  begin
    Result := 0;
    if FNode^.Text <> '' then
    begin
      tmp := FNode^.Text;
      if TryToConvertToInteger(tmp, tempValue) then
        Result := tempValue
      else
  