anchor.diff:    {$IFDEF FPC}
       md5,
     {$ELSE}
  -    IdGlobal, IdHash, IdHashMessageDigest,
  +    hash,
     {$ENDIF}
     James.Data,
     James.Data.Clss;
  
positive.code:         )
        )
      {$ELSE}
        getMd5HashString(
          FOrigin.AsString
        )
      {$ENDIF}
  
negative.code: { TMD5Stream }
  
  function TMD5Stream.GetStream: IDataStream;
  begin
    Result := TDataStream.New(
      {$IFDEF FPC}
  