If FontDialog.Execute then Edit.Font := FontDialog.Font;

Здесь показан пример изменения шрифта в компоненте Edit. Причем во время вызова диалога FontDialog

в нем изначально будет установлен шрифт, заданный в компоненте Edit.

Свойство Device указывает типы отображаемых шрифтов. fdBoth - все, fdPrinter - принтерные, fdScreen

- экранные.