Сохранить список строк в поток

type
  TWordMaps = class(TObject)
    VerseMap: TxIntegerList;
    QuestMap: TxIntegerList;
  public
    constructor Create();
    destructor Destroy(); override;
  end;
 
var
    slWordMaps: TStringList;  // хранит карты стихов и вопросов для искомых слов
    slQuestMaps: TStringList; // хранит карты стихов для каждого вопроса
 
procedure GetAllMaps;
var
  StreamV, StreamQ: TStream;
  iPos: Integer;
begin
    with DSWords do begin
      First;
      while not Eof do begin
        StreamV := CreateBlobStream(FieldByName('VERSE_MAP'), bmRead);
        StreamQ := CreateBlobStream(FieldByName('QUEST_MAP'), bmRead);
        iPos := slWordMaps.AddObject(FieldByName('WORD_NAME').AsString, TWordMaps.Create);
        (slWordMaps.Objects[iPos] as TWordMaps).VerseMap.LoadFromStream(StreamV);
        (slWordMaps.Objects[iPos] as TWordMaps).QuestMap.LoadFromStream(StreamQ);
        Next;
      end;
    end; {with}
    with DSQuest do begin
      First;
      while not Eof do begin
        StreamQ := CreateBlobStream(FieldByName('QVERSE_MAP'), bmRead);
        iPos := slQuestMaps.AddObject(FieldByName('QUEST_NUM').AsString, TxIntegerList.Create);
        (slQuestMaps.Objects[iPos] as TxIntegerList).Sorted := True;
        (slQuestMaps.Objects[iPos] as TxIntegerList).Duplicates := dupIgnore;
        (slQuestMaps.Objects[iPos] as TxIntegerList).LoadFromStream(StreamQ);
        Next;
      end;
    end; {with}
    StreamV.Free; StreamQ.Free;
    DSWords.Close; DSQuest.Close;
end;