diff --git a/lcl/interfaces/qt/qtwsdialogs.pp b/lcl/interfaces/qt/qtwsdialogs.pp
index 1c2552c05f..09bd87807b 100644
--- a/lcl/interfaces/qt/qtwsdialogs.pp
+++ b/lcl/interfaces/qt/qtwsdialogs.pp
@@ -164,7 +164,7 @@ end;
  ------------------------------------------------------------------------------}
 class procedure TQtWSCommonDialog.DestroyHandle(const ACommonDialog: TCommonDialog);
 begin
-  if ACommonDialog.Handle <> 0 then
+  if ACommonDialog.HandleAllocated then
     TQtDialog(ACommonDialog.Handle).Release;
 end;