Probiere es mal so:
Delphi-Quellcode:
type
Tschrift= Record
n: TFontname;
c: Tcolor;
end;
var
f: File of Tschrift;
Schrift: Tschrift;
...
Schrift.c:=Fontdialog1.Font.Color;
Schrift.n:=Fontdialog1.Font.Name;
Assignfile(f, 'C:\Program Files\Feldmühle\Grapheinstellungen.einst');
Rewrite(f);
Write(f,Schrift);
Closefile(f);
.. und vielleicht nochmals die Anwendung von Records studieren.
Grüße
Klaus