diff --git a/lcl/interfaces/win32/win32wsdialogs.pp b/lcl/interfaces/win32/win32wsdialogs.pp
index 4949080dee..5616a59206 100644
--- a/lcl/interfaces/win32/win32wsdialogs.pp
+++ b/lcl/interfaces/win32/win32wsdialogs.pp
@@ -161,7 +161,7 @@ type
 
   TWin32WSTaskDialog = class(TWSTaskDialog)
   public
-    class function Execute(const ACommonDialog: TCommonDialog): Boolean; override;
+    class function Execute(const ADlg: TCustomTaskDialog): Boolean; override;
   end;
 
 function OpenFileDialogCallBack(Wnd: HWND; uMsg: UINT; {%H-}wParam: WPARAM;
@@ -1574,9 +1574,9 @@ end;
 
 { TWin32WSTaskDialog }
 
-class function TWin32WSTaskDialog.Execute(const ACommonDialog: TCommonDialog): Boolean;
+class function TWin32WSTaskDialog.Execute(const ADlg: TCustomTaskDialog): Boolean;
 begin
-  Result := inherited Execute(ACommonDialog);
+  Result := inherited Execute(ADlg);
 end;
 
 initialization
diff --git a/lcl/widgetset/wsdialogs.pp b/lcl/widgetset/wsdialogs.pp
index e788ea0cbb..99394f6b17 100644
--- a/lcl/widgetset/wsdialogs.pp
+++ b/lcl/widgetset/wsdialogs.pp
@@ -106,7 +106,7 @@ type
 
   TWSTaskDialog  = class(TWSCommonDialog)
   published
-    class function Execute(const ACommonDialog: TCommonDialog): Boolean; virtual;
+    class function Execute(const ADlg: TCustomTaskDialog): Boolean; virtual;
   end;
 
   { WidgetSetRegistration }
@@ -198,7 +198,7 @@ end;
 
 { TWSTaskDialog }
 
-class function TWSTaskDialog.Execute(const ACommonDialog: TCommonDialog): Boolean;
+class function TWSTaskDialog.Execute(const ADlg: TCustomTaskDialog): Boolean;
 begin
   //ToDo call new LCLTaskDialog.Execute
   Result := False;