procedure PutFace(var S: TStream; Face: PFontFace; AScaling: LongInt);
Diese Prozedur speichert die Daten des Schriftschnitts Face in den
Stream S. Mittels GetFace kann der
Schriftschnitt wieder eingelesen werden. Zusätzlich angegeben werden
muß die Skalierung AScaling.