Dateinamen von Schriftarten

[MCXSC]

Hallo!

Ich habe einen Code, mit dem man sich alle auf dem PC installierten Schriftarten anzeigen lassen kann.

Zur Erinnerung

Delphi-Quellcode:

var
  FormSysFnt: TFormSysFnt;

procedure TFormSysFnt.FormCreate(Sender: TObject);
begin
   ListBoxFonts.items:=screen.fonts;
   LabelAusgabe.font.size := 12;
   LabelAusgabe.caption:=memo1.text;
end;

Aber: Wie kann ich, wenn man eine Schriftart auswählt, deren Dateinamen erhalten?