Druckerschriftarten

[needatip]

Hallo,
weiß jemand wie man nur die Druckerschriftarten in eine ComboBox lädt.
Beim Ausführen der folgenden Routine bekomme ich auch die TrueType Schriftarten.
Wie kann ich diese weglassen, oder wie bei Word mit einem Symbol versehen.
d.h. die TT-Fonts von den Printerfonts unterscheiden ?

[delphi]procedure TMainWindow.FormActivate(Sender: TObject);
begin
ComboBox1.Items := Printer.Fonts;
end;