[[Al González]]

El método Free destruirá el objeto entero. Es mejor hacer lo que te indica ecfisa.

Y en versiones actuales de Delphi ya puedes usar también el método Clear:

Código Delphi [-]
Var
  LS :TStringStream;
Begin
  //...
  LS.Clear;

Esto es porque Embarcadero cambió la herencia de la clase TStringStream de:

TStream
  TStringStream

a:

TStream
  TCustomMemoryStream
    TMemoryStream (la cual declara el método Clear)
      TBytesStream
        TStringStream

Ojalá sea de utilidad, saludos.

Al González.