[KOOL]

в составе record это типа так:

Код:

type MyFile=record
         val1:integer;
         val2:string[20];
         StrList:TStringList
       end;
//а затем
procedure Save(FileName : string);
var OutF : file of MyFile;
begin
...
end;

все сохраняется нормально, кроме StringList