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