StreamToString

[arbu man]

Ich steh grade ziehlich auf den Schlauch. Ich will einen Stream in einen String umwandeln. Doch folgende funktion gibt ein eigenartiges ergebnis aus. Was mache ich da falsch und welche ausgabe hat der Code bei euch ?

Delphi-Quellcode:

function streamtostr(S: TStream): string;
var
  str: string;
begin
  setlength(str, S.size);
  S.Read(str[1],length(str));
  result:= str;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ms: tmemorystream;
  s: string;
begin
  ms:= tmemorystream.Create;
  s := 'gsfdgfdghgfd';
  ms.Write(s, length(s));
  showmessage(streamtostr(ms));
end;

Was steht in der ShowMessage ???