diff --git a/lcl/forms.pp b/lcl/forms.pp
index df1207be9b..aa88597e58 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -666,7 +666,7 @@ type
     property DefaultMonitor: TDefaultMonitor read FDefaultMonitor
       write FDefaultMonitor default dmActiveForm;
     property Designer: TIDesigner read FDesigner write FDesigner;
-    property DesignTimeDPI: Integer read FDesignTimeDPI write SetDesignTimeDPI;
+    property DesignTimeDPI: Integer read FDesignTimeDPI write SetDesignTimeDPI default 96;
     property EffectiveShowInTaskBar: TShowInTaskBar read GetEffectiveShowInTaskBar;
     property FormState: TFormState read FFormState;
     property FormStyle: TFormStyle read FFormStyle write SetFormStyle