Probleme mit TMemoryStream

[xthing]

Hi Leute,

ich probiere mich gerade an einem TMemoryStream. Ich speichere den Inhalt eines Memofeldes in einem Stream. Das funktioniert, doch leider das auslesen nicht. Hier mein Code:

Delphi-Quellcode:

memo1.Lines.Add('TEST1');
memo1.Lines.Add('TEST2');
memo1.Lines.SaveToStream(str);
str.ReadBuffer(buf,str.size);

Die Fehlermeldung lautet: Stream read error;
buf ist vom Typ string. Könnt ihr mir helfen?

Grüße
xthing