[darkamerico]

Empezado por pgranados

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

Código Delphi [-]
FreeAndNil(contenido);

---------------------------------------------------

Amigo, aquí hice un pequeño video para reproducir el problema
Problema