diff --git a/lcl/include/promptdialog.inc b/lcl/include/promptdialog.inc
index e887ad300e..772b35c2a0 100644
--- a/lcl/include/promptdialog.inc
+++ b/lcl/include/promptdialog.inc
@@ -120,7 +120,7 @@ end;
 constructor TPromptDialog.CreateMessageDialog(const ACaption, aMsg: string;
   DialogType : longint; TheButtons: PLongint; ButtonCount, DefaultIndex : Longint);
 begin
-  inherited Create(nil);
+  inherited CreateNew(nil, 1);
 
   IsSmallDevice := (Screen.Width <= 300);
 
@@ -684,7 +684,7 @@ var
   NewKind: TBitBtnKind;
   NewCaption: String;
 begin
-  inherited Create(nil);
+  inherited CreateNew(nil, 1);
   PopupMode := pmAuto;
   BorderStyle := bsDialog;
   Position := poScreenCenter;