anchor.diff:      Buf.WriteBuffer(TXT[1], Length(TXT) * SizeOf(Char));
       Ss.Text := TXT;
       CheckEquals(
  -      EncodeBase64(TXT),
  +      TBase64Hash.New(TXT).AsString,
         TBase64Stream.New(TDataStream.New(Buf)).AsString,
         'Test Stream'
       );
       CheckEquals(
  -      EncodeBase64(TXT),
  +      TBase64Hash.New(TXT).AsString,
         TBase64Stream.New(TDataStream.New(TXT)).AsString,
         'Test String'
       );
       CheckEquals(
  -      EncodeBase64(TXT+#13#10),
  +      TBase64Hash.New(TXT+#13#10).AsString,
         TBase64Stream.New(TDataStream.New(Ss)).AsString,
         'Test Strings'
       );
  
positive.code: 
  implementation
  
  uses synacode;
  
  { TBase64HashTest }
  
  procedure TBase64HashTest.HashByBase64encodePage;
  
negative.code:   Ss := TStringList.Create;
    try
      TBase64Stream.New(TDataStream.New(TXT)).Save(Ss);
      CheckEquals(TBase64Hash.New(TXT).AsString, Trim(Ss.Text));
    finally
      Ss.Free;
    end;
  