diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 3b63a9848d..2fca23e30a 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -350,7 +350,7 @@ type
   TNoteBookCapabilities = TCTabControlCapabilities deprecated;
 
   TDrawTabEvent = procedure(Control: TCustomTabControl; TabIndex: Integer;
-    const Rect: TRect; Active: Boolean) of object;
+    const Rect: TRect; AActive: Boolean) of object;
 
   TCustomTabControl = class(TWinControl)
   private