diff --git a/lcl/interfaces/win32/win32wsdialogs.pp b/lcl/interfaces/win32/win32wsdialogs.pp
index dec1d5efe0..0fb48ade58 100644
--- a/lcl/interfaces/win32/win32wsdialogs.pp
+++ b/lcl/interfaces/win32/win32wsdialogs.pp
@@ -1721,7 +1721,7 @@ begin
       lParam: Must be zero.
       Return value: The return value is ignored.
       }
-      if IsConsole then writeln('ToDo: implement TDN_NAVIGATED??');
+      if IsConsole then writeln('ToDo: implement OnNavigate');
     end;
     TDN_TIMER:
     begin
@@ -1767,6 +1767,10 @@ begin
       TTaskDialogAccess(Dlg).DoOnRadioButtonClicked(wParam);
       {$POP}
     end;
+    TDN_HELP:
+    begin
+      if IsConsole then writeln('ToDo: implement TDN_HELP??');
+    end;
   end;
 end;