Tylko wybrane czcionki

1.Jak zrobić aby do combobox były wczytane tylko czcionki Arial i ArialBlack oraz jak i gzdie mam umieścić kod, który przypisze te czcionki do richedit.

2. Jak skopiować plik fonta do katalogu czcionki w panelu sterowania:

pFrom := 'C:';
pTo := ???????????????

ad 1. w delphi/demos masz gotowe (trochę pokombinować trza, lae się da)
ad 2. czcionki są w folderze C:\%WINDIR%\Fonts\