diff --git a/lcl/interfaces/win32/win32proc.pp b/lcl/interfaces/win32/win32proc.pp
index 3f914e9a4b..e2a48b4bb2 100644
--- a/lcl/interfaces/win32/win32proc.pp
+++ b/lcl/interfaces/win32/win32proc.pp
@@ -87,8 +87,8 @@ procedure CallEvent(const Target: TObject; Event: TNotifyEvent;
 function ObjectToHWND(const AObject: TObject): HWND;
 function LCLControlSizeNeedsUpdate(Sender: TWinControl;
   SendSizeMsgOnDiff: boolean): boolean;
-function GetLCLClientBoundsOffset(Sender: TObject; var ORect: TRect): boolean;
-function GetLCLClientBoundsOffset(Handle: HWnd; var Rect: TRect): boolean;
+function GetLCLClientBoundsOffset(Sender: TObject; out ORect: TRect): boolean;
+function GetLCLClientBoundsOffset(Handle: HWnd; out Rect: TRect): boolean;
 procedure LCLBoundsToWin32Bounds(Sender: TObject;
   var Left, Top, Width, Height: Integer);
 procedure Win32PosToLCLPos(Sender: TObject; var Left, Top: SmallInt);
@@ -782,7 +782,7 @@ end;
     height.
   It is used in GetClientBounds to define LCL bounds from win32 bounds.
 -------------------------------------------------------------------------------}
-function GetLCLClientBoundsOffset(Sender: TObject; var ORect: TRect): boolean;
+function GetLCLClientBoundsOffset(Sender: TObject; out ORect: TRect): boolean;
 var
   TM: TextMetricA;
   DC: HDC;
@@ -846,7 +846,7 @@ begin
   Result := True;
 end;
 
-function GetLCLClientBoundsOffset(Handle: HWnd; var Rect: TRect): boolean;
+function GetLCLClientBoundsOffset(Handle: HWnd; out Rect: TRect): boolean;
 var
   OwnerObject: TObject;
 begin
diff --git a/lcl/interfaces/win32/win32wscontrols.pp b/lcl/interfaces/win32/win32wscontrols.pp
index 377d2915e6..8ed4f985f0 100644
--- a/lcl/interfaces/win32/win32wscontrols.pp
+++ b/lcl/interfaces/win32/win32wscontrols.pp
@@ -143,7 +143,7 @@ procedure SetStdBiDiModeParams(const AWinControl: TWinControl; var Params:TCreat
 implementation
 
 uses
-  Win32Int, Win32WSButtons;
+  Win32Int;
 
 { Global helper routines }
 
diff --git a/lcl/interfaces/win32/win32wsforms.pp b/lcl/interfaces/win32/win32wsforms.pp
index dc99766b47..7720fd1255 100644
--- a/lcl/interfaces/win32/win32wsforms.pp
+++ b/lcl/interfaces/win32/win32wsforms.pp
@@ -283,7 +283,7 @@ begin
   FlagsEx := FlagsEx or CalcBorderIconsFlagsEx(AForm);
 end;
 
-procedure AdjustFormBounds(const AForm: TCustomForm; var SizeRect: TRect);
+procedure AdjustFormBounds(const AForm: TCustomForm; out SizeRect: TRect);
 var
   BorderStyle: TFormBorderStyle;
 begin