Привет!
Помогите плиз, я ваще ничего не понимаю....

Пишу в FormShow

...

var FF: file of TFont;
    F: TFont;

...

   AssignFile(FF,FontName);
   Reset(FF);
   Read(FF, F);
   Memo1.Font:=F;
   CloseFile(FF);

....

Пишу в FormClose
...

    FF: File of TFont;

...

  AssignFile(FF, FontName);
  Rewrite(FF);
  write(FF, Memo1.Font );
  CloseFile(FF);

...

И почему оно не сохраняет шрифт после закрытия?