diff --git a/lcl/taskdlgemulation.pp b/lcl/taskdlgemulation.pp
index 59a1cf8835..1a9654029a 100644
--- a/lcl/taskdlgemulation.pp
+++ b/lcl/taskdlgemulation.pp
@@ -169,6 +169,8 @@ var
   mRes, I: Integer;
   aParent: HWND;
 begin
+  if not Assigned(FDlg) then
+    Exit(False);
   SetupControls;
 
   aParent := FDlg.ParentWindow;