Файловые потоки, нужна помощь...

[CrVik]

Мне нужно из таблицы, в которой есть BLOB поле, в котором записан RTF текст, положить данные в файл (*.doc, *.rtf). После долгих попыток что ли бо такое сделать, получилось следующее:

var FS: TFileStream;
     BlobStream: TADOBlobStream;
     i:Integer;
begin
  dm.ADOTable.First;
  i:=0;
 while not dm.ADOTable.Eof do
   begin
    FS:=TFileStream.Create( 'File'+ IntToStr(i) + '.doc', fmCreate);
    BlobStream := TADOBlobStream.Create(TBlobField(dm.ADOTable.FieldByName('RTFText')), bmRead);
    BlobStream.Seek(0, soFromBeginning);
    FS.CopyFrom(BlobStream, BlobStream.Size);
    inc(i);
    dm.ADOTable.Next;
 end;

Данный кусок кода выгружает каждую запись таблицы в отдельно созданный файл, а мне нужно что бы все строки таблицы записались в один файл. Как это можно реализовать?