TSQLQuery.FieldByName ().AsString - > TStringStream Повреждает Данные

Я использую Delphi XE2. Мой код извлекает данные из базы данных SQL-Server 2008 R2. Возвращаемые данные представляют собой поле nvarchar(max) с 1 055 227 байтами данных. Я использую следующий код для сохранения данных поля в файл:

procedure WriteFieldToFile(FieldName: string; Query: TSQLQuery);

var

  ss: TStringStream;

begin

  ss := TStringStream.Create;

  try

    ss.WriteString(Query.FieldByName(FieldName).AsString);

    ss.Position := 0;

    ss.SaveToFile('C:Test.txt');

  finally

    FreeAndNil(ss);

  end;

end;

Когда я просматриваю файл в шестнадцатеричном средстве просмотра, первые 524 287 байт (ровно 1/2 Мег) выглядят правильно. Остальные байты (от 524 288 до 1 055 227) - это все нули (#0), а не исходные данные.

Является ли это правильным способом сохранения строкового поля из TSQLQuery в файл? Я решил использовать TStringStream, потому что в конечном итоге я добавлю код, чтобы сделать другие вещи с данными в потоке, которые я не могу сделать с TFileStream.