diff --git a/lcl/forms.pp b/lcl/forms.pp
index ede0337d8f..7f687a0a8d 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -942,7 +942,7 @@ type
     function GetWidth : Integer;
     procedure AddForm(AForm: TCustomForm);
     procedure RemoveForm(AForm: TCustomForm);
-    function SetFocusedForm(AForm: TCustomForm; AModal: Boolean): Boolean;
+    function SetFocusedForm(AForm: TCustomForm): Boolean;
     procedure SetCursor(const AValue: TCursor);
     procedure SetCursors(AIndex: Integer; const AValue: HCURSOR);
     procedure SetHintFont(const AValue: TFont);
diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc
index dd44f96a56..93fc871e1e 100644
--- a/lcl/include/customform.inc
+++ b/lcl/include/customform.inc
@@ -2216,7 +2216,7 @@ begin
   begin
     Control.ControlState := Control.ControlState + [csFocusing];
     try
-      if not Screen.SetFocusedForm(Self, False) then
+      if not Screen.SetFocusedForm(Self) then
         Exit;
       // update ActiveControls of all parent forms
       CurControl := Control.Parent;
diff --git a/lcl/include/screen.inc b/lcl/include/screen.inc
index 5713e79c36..e5fc42fbb1 100644
--- a/lcl/include/screen.inc
+++ b/lcl/include/screen.inc
@@ -763,7 +763,7 @@ begin
   Application.UpdateVisible;
 end;
 
-function TScreen.SetFocusedForm(AForm: TCustomForm; AModal: Boolean): Boolean;
+function TScreen.SetFocusedForm(AForm: TCustomForm): Boolean;
 var
   LastState: TFocusState;
 begin