[stas8359]

Подскажите пожалуйста как сохранить TStringList в составе record в файл? Знаю что нужно использовать TStream но не как не могу разобраться как с ним работать. Вот эти данные нужно записать в файл, а потом считать.

Код:

TTest = record
           TVopros : TStringList;
           TVopr1 : TStringList;
           TVopr2 : TStringList;
           TVopr3 : TStringList;
           TVopr4 : TStringList;
           TVopr5 : TStringList;
           TVopr6 : TStringList;
           PicName :string[100];
           TOtv1 : Boolean;
           TOtv2 : Boolean;
           TOtv3 : Boolean;
           TOtv4 : Boolean;
           TOtv5 : Boolean;
           TOtv6 : Boolean;
          end;

  TFileTest = record
               TKolVopr : Byte;
               TKolZadVopr: Byte;
               TPredmet : String[30];
               RecordTest : array[1..100] of TTest;
               min:Integer;
               ProvVrem:Boolean;
              end;