diff --git a/lcl/interfaces/win32/win32wsdialogs.pp b/lcl/interfaces/win32/win32wsdialogs.pp
index caeae04231..acbd8919d7 100644
--- a/lcl/interfaces/win32/win32wsdialogs.pp
+++ b/lcl/interfaces/win32/win32wsdialogs.pp
@@ -440,6 +440,8 @@ begin
     UpdateFileProperties(OpenFileName);
 
     case OpenFileNotify^.hdr.code of
+      CDN_INITDONE:
+        TOpenDialog(DialogRec^.Dialog).DoShow;
       CDN_SELCHANGE:
         TOpenDialog(DialogRec^.Dialog).DoSelectionChange;
       CDN_FOLDERCHANGE: