ComboBox1.Items := (ordner).Fonts;

[Nalincah]

Du sollst ja auch nicht alle kopieren, sondern immer nur die, die benutzt wirst. Pass aber auf. Wenn in deinem Ordner ne Font "Arial.ttf" ist und du die in "C:\Windows\Fonts\" kopieren willst gibts die da ja meistens schon. Wenn du die jetzt überschreibst und danach löscht ist sie weg. Also nur reinkopieren wenn es die Schrift noch nicht gibt