Auflisten der TFontCharset eines bestimmten Fonts

[Ookami]

Hallo Gemeinde,

Was möchte ich den haben?
Jeder Font hat eine bestimmte Anzahl von Länderspezifischen Charsets, die auch bei jedem Font unterschiedlich sind. Ich suche nach einer Lösung, die verschiedenen Charsets eines Fonts in eine Liste zu lesen. Ich meinte mal eine Lösung gehabt zu haben, aber die funktioniert wohl unter win7 nicht mehr.

Die Lösung, die ich unter WinXP mal hatte konnte ich auch wiederfinden unter
http://www.swissdelphicenter.ch/de/showcode.php?id=892

Tja, nur leider funktioniert die nicht mehr wie gesagt und so sehr ich mich abstrample, hab ich im Netz nichts zu diesem Thema gefunden, zumindest nichts, das mich auch nur annährend in die Richtung führt.

Leider kann ich den Code nicht so ganz nachvollziehen, daher die Frage, ob einer von Euch eine andere Lösung hat.