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