diff --git a/components/exctrls/source/exquestiondlg.pas b/components/exctrls/source/exquestiondlg.pas
index 96e811347..2c49fe72c 100644
--- a/components/exctrls/source/exquestiondlg.pas
+++ b/components/exctrls/source/exquestiondlg.pas
@@ -478,7 +478,10 @@ var
   QForm: TQForm;
 begin
   QForm := TQForm.CreateNew(Screen.ActiveCustomForm);
-  QForm.Font.Name := QuestionDlgEx_FontName;
+  if QuestionDlgEx_FontName = '' then
+    QForm.Font.Name := 'default'
+  else
+    QForm.Font.Name := QuestionDlgEx_FontName;
   QForm.Font.Size := QuestionDlgEx_FontSize;
   QForm.ButtonAlignment := QuestionDlgEx_ButtonAlignment;
   QForm.TextAlignment := QuestionDlgEx_TextAlignment;