Sowohl mit also auch ohne Styles bekomme ich den Fehler.
Wie du siehst, weiße ich dlg.font nix zu, steht also auf dem Default-Wert des Dialogs beim erzeugen.
ka.. vielleicht geht das?
dlg := VCL.Dialogs.TFontDialog.Create(self);
eventuell holt er sich dann die Font Informationen aus der Main Class bzw. deiner Form.
Ist aber auch möglich das ich quatsch rede
Einen Font zuweisen bevor du den Dialog(Execute) ausführst?
dlg.Font := Form1.Font;
gruss