diff --git a/Projects/Src/Setup.SelectFolderForm.pas b/Projects/Src/Setup.SelectFolderForm.pas
index 8f0f9224..e836b237 100644
--- a/Projects/Src/Setup.SelectFolderForm.pas
+++ b/Projects/Src/Setup.SelectFolderForm.pas
@@ -107,6 +107,10 @@ constructor TSelectFolderForm.Create(AOwner: TComponent);
   FFolderTreeView.SetBounds(16, 64, 317, 229);
   FFolderTreeView.Anchors := [akLeft, akTop, akRight, akBottom];
   FFolderTreeView.Visible := False;
+  { The form needs its handle allocated before the Parent assignment,
+    otherwise the control's width and height get reduced later. Looks like
+    a Delphi 11 bug; the problem is seen in IS 6.3 but not 6.2.2. }
+  HandleNeeded;
   FFolderTreeView.Parent := Self;
   PathEdit.BringToFront;     { for MSAA }
   BrowseLabel.BringToFront;  { for MSAA }