anchor.diff:  
   implementation
   
  -uses dateutils {$IFDEF FPC},StrUtils{$ELSE}{,System.AnsiStrings}{$ENDIF};
  +uses dateutils, StrUtils;
   
   const
     IntlDateTimeFormat : TFormatSettings = (
  
positive.code:   SetLength(ABytes, 0);
    LHexLength := System.Length(AHexString);
    LHexStart := 1;
    if AnsiStartsText('0x', AHexString) then begin
  
      // Special case: 0x0 = empty byte array
      if (LHexLength = 3) AND (AHexString[3] = '0') then
  
negative.code:     fstream.Seek(0, soFromEnd);
    end;
    try
      fstream.{$IFDEF FPC}WriteAnsiString{$ELSE}WriteString{$ENDIF}(AText+#13#10);
    finally
      fstream.Free;
    end;
  