Failure when showing error message before configuration is even created

Source commit: 2116eb044dbf6857dcb21e686aaf74804745c330

source/forms/MessageDlg.cpp

@@ -1080,7 +1080,9 @@ TForm * __fastcall TMessageForm::Create(const UnicodeString & Msg,
       if (LabelFont != 0)
       {
         Message->Font->Handle = LabelFont;
-        if (DebugAlwaysTrue(LabelFont == MainInstructionFont))
+        if (DebugAlwaysTrue(LabelFont == MainInstructionFont) &&
+             // When showing an early error message
+            (Configuration != NULL))
         {
           Configuration->Usage->Set(L"ThemeMainInstructionFontSize", Message->Font->Size);
         }

source/windows/VCLCommon.cpp

@@ -769,16 +769,19 @@ static void FlipAnchors(TControl * Control)
 // Settings that must be set only after whole form is constructed
 void __fastcall UseSystemSettingsPost(TCustomForm * Control)
 {
-  UnicodeString FlipStr = LoadStr(FLIP_CHILDREN);
-  int FlipChildrenFlag =
-    AdjustLocaleFlag(FlipStr, WinConfiguration->FlipChildrenOverride, false, true, false);
-  if (static_cast<bool>(FlipChildrenFlag))
+  // When showing an early error message
+  if (WinConfiguration != NULL)
   {
-    Control->FlipChildren(true);
+    UnicodeString FlipStr = LoadStr(FLIP_CHILDREN);
+    int FlipChildrenFlag =
+      AdjustLocaleFlag(FlipStr, WinConfiguration->FlipChildrenOverride, false, true, false);
+    if (static_cast<bool>(FlipChildrenFlag))
+    {
+      Control->FlipChildren(true);
 
-    FlipAnchors(Control);
+      FlipAnchors(Control);
+    }
   }
-
   ResetSystemSettings(Control);
 };
 //---------------------------------------------------------------------------