Siéndote honesto no veo el error, en una forma hice lo siguiente y funciono
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Lista: TStringStream;
datos: string;
begin
datos:= 'HOLA';
Lista:= TStringStream.Create(datos);
end;
Intenta agregar antes de crear el stringStream