Actually it is common dialog:
[IMG] https://i100.fastpic.ru/thumb/2018/0816 … ddbb8.jpeg [/IMG]

 FontDialog1.Font: = Form1.Font;
if FontDialog1.Execute () then
Form1.Font: = FontDialog1.Font; 

If a type face not standard (as on fig. above) that here this piece FontDialog1.Font: = Form1.Font does not position the list (at FontDialog1.Execute) on font name. A question actually how to win it?
Saw in indirect programs here such dialogues, but on  I do not know as to make:
[IMG] http://i103.fastpic.ru/thumb/2018/0816/ … ab316.jpeg [/IMG]