anchor.diff:    Ss := TStringList.Create;
     try
       TBase64Stream.New(TDataStream.New(TXT)).Save(Ss);
  -    CheckEquals(EncodeBase64(TXT), Trim(Ss.Text));
  +    CheckEquals(TBase64Hash.New(TXT).AsString, Trim(Ss.Text));
     finally
       Ss.Free;
     end;
  
positive.code:     Buf.WriteBuffer(TXT[1], Length(TXT) * SizeOf(Char));
      Ss.Text := TXT;
      CheckEquals(
        EncodeBase64(TXT),
        TBase64Stream.New(TDataStream.New(Buf)).AsString,
        'Test Stream'
      );
      CheckEquals(
        EncodeBase64(TXT),
        TBase64Stream.New(TDataStream.New(TXT)).AsString,
        'Test String'
      );
      CheckEquals(
        EncodeBase64(TXT+#13#10),
        TBase64Stream.New(TDataStream.New(Ss)).AsString,
        'Test Strings'
      );
  
negative.code:     SetLength(S, Buf.Size);
      Buf.Position := 0;
      Buf.ReadBuffer(S[1], Buf.Size);
      CheckEquals(TBase64Hash.New(TXT).AsString, S);
    finally
      Buf.Free;
    end;
  