[Holy]

Если хочешь записать строку String (AnsiString) в Stream делай так:

Код:

var
  f: TMemoryStream;
  S: AnsiString;
begin
  f := TMemoryStream.Create;
  try
    // Указываем с какой точки и сколько байт занести в Stream
    f.Write(S[1], Length(S));
    f.SaveToFile(filename);
  finally
    f.Free;
  end;
end;