Inhalt von TMemoryStream als String auslesen?

[nicodex]

Delphi-Quellcode:

var
  S: AnsiString;
  Buffer: TMemoryStream;
begin
  SetString(S, PAnsiChar(Buffer.Memory), Buffer.Size);
end;