аум
Програмную установку шрифтов следут производить до того, как будет создана хотья бы одна форма. Нарпимер:

Options.InstallFont; // здесь ставлю шрифт

// понеслось...
Application.Initialize;
Application.Title := 'Ïàìÿòíèêè è öåííûå îáúåêòû àðõèòåêòóðû è ãðàäîñòðîèòåëüñòâà';
frmWait := TfrmWait.Create(nil);
frmWait.Show;
frmWait.Repaint;
........

Иначе с первого раза шрифт не будет задействован в программе.