Работа с типизированными фаилами!

[aks]

Подскажите пожалуиста как сохранить информацию из memo в типизированный, и как и программы создать типизированный фаил?

[alex_fcsm]

type
  MyType=record
    s:string[100];
end;

var  x:MyType;
      f:file of Mytype;

..........
assignfile(f,'c:\1.mtp');
rewrite(f);
for i:=0 to Memo1.Lines.Count-1 do
 begin
  x.s:=Memo1.lines[i];
  write(f,x);
 end;
closefile(f);
..............

assignfile(f,'c:\1.mtp');
reset(f);
while not(eof(f)) do
 begin
 read(f,x);
 Memo1.Lines.Add(x.s);
 end;
closefile(f);

[puporev]

А почему не просто file of string?

[aks]

А как создать типизированный фаил из программы?

[puporev]

А здесь из чего создается?

[aks]

Всем спасибо! Разобрался!

Что означают эти две строчки:
MyType=record и x.s:=Memo1.lines[i];

[puporev]

MyType=record - пользовательский тип, запись с одним полем строкового типа.
x.s:=Memo1.lines[i];- переменная этого типа, в которую запоминаем очередную строку из Memo.
Я писал, что это можно убрать и просто определить переменную s:string;