Problema con TFileStream

[[seoane]]

Vamos a ver, para grabar un string debes de hacer algo como esto:

Código Delphi [-]
var
  fOut   : TFileStream;
  sLine: string;
begin
    sLine := 'Esta en una linea de Prueba con FileStream';
    fOut := TFileStream.Create(cFileName,fmCreate);
    fOut.Write(PChar(sLine)^,Length(sLine)); // <--
    fOut.Free;
end;

Piensa que tal como lo tenias antes lo que mandabas escribir no era el contenido del string, si no la propia variable string que no es mas que un puntero.