Nochmal eine kleine Erklärung für hardcorehorst:
TFont ist ein Objekt und kein Record.
Wenn man sich eine Variable xy:TFont deklariert, so ist diese Variable
ein 4Byte-Zeiger auf das Objekt. Um Objekte zu speichern, ist es meistens
notwendig deren Eigenschaften einzeln abzuspeichern.
z.B.:
Delphi-Quellcode:
BlockWrite(AFile, xy.Color, SizeOf(xy.Color);
BlockWrite(AFile, xy.Size, SizeOf(xy.Size);
Wäre TFont ein Record, so könnte man einfach
BlockWrite(AFile, xy, SizeOf(xy));
schreiben.
Viel Spass beim Testen...