diff --git a/lcl/interfaces/win32/win32winapi.inc b/lcl/interfaces/win32/win32winapi.inc
index 884b324976..03957cc06b 100644
--- a/lcl/interfaces/win32/win32winapi.inc
+++ b/lcl/interfaces/win32/win32winapi.inc
@@ -1483,7 +1483,7 @@ end;
   Draws a 3D border in win32 native style.
   NOTE: This function is mapped to DrawEdge on Windows.
 ------------------------------------------------------------------------------}
-function TWin32WidgetSet.Frame3D(DC: HDC; var Rect: TRect;
+function TWin32WidgetSet.Frame3D(DC: HDC; var ARect: TRect;
   const FrameWidth: Integer; const Style: TBevelCut): Boolean;
 const
   Edge: array[TBevelCut] of Integer =
@@ -1497,7 +1497,7 @@ var
   I: Integer;
 begin
   for I := 0 to FrameWidth - 1 do
-    Result := Boolean(DrawEdge(DC, Rect, Edge[Style], BF_RECT or BF_ADJUST));
+    Result := Boolean(DrawEdge(DC, ARect, Edge[Style], BF_RECT or BF_ADJUST));
 end;
 
 function TWin32WidgetSet.FrameRect(DC: HDC; const ARect: TRect;
diff --git a/lcl/interfaces/win32/win32winapih.inc b/lcl/interfaces/win32/win32winapih.inc
index f61a953852..1df91a9152 100644
--- a/lcl/interfaces/win32/win32winapih.inc
+++ b/lcl/interfaces/win32/win32winapih.inc
@@ -87,7 +87,7 @@ function ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer; overri
 function FillRect(DC: HDC; Const Rect: TRect; Brush: HBRUSH): Boolean; override;
 function FloodFill(DC: HDC; X, Y: Integer; Color: TGraphicsColor; FillStyle: TGraphicsFillStyle;   Brush: HBRUSH): Boolean; override;
 { Draws a 3D border in GTK native style. }
-function Frame3D(DC: HDC; var Rect: TRect; Const FrameWidth: Integer; Const Style: TBevelCut): Boolean; override;
+function Frame3D(DC: HDC; var ARect: TRect; Const FrameWidth: Integer; Const Style: TBevelCut): Boolean; override;
 function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH) : integer; override;
 
 function GetActiveWindow: HWND; override;