Hi,
vielleicht erkennst Du an diesem Beispiel Deinen Fehler:
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
var
sStream: TStringStream;
Test: String;
begin
Test := 'Ich bin eine Stringvariable';
sStream := TStringStream.Create(Test);
ShowMessage(sStream.DataString);
sStream.Free;
end;