diff --git a/components/rx/rxtoolbar.pas b/components/rx/rxtoolbar.pas
index 144150aed..2a4088d35 100644
--- a/components/rx/rxtoolbar.pas
+++ b/components/rx/rxtoolbar.pas
@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, LCLType, LCLIntf, Buttons, Controls, ExtCtrls, ActnList,
-  PropertyStorage, Menus, Forms, types, Graphics;
+  PropertyStorage, Menus, Forms, types, Graphics, ImgList;
 
 const
   DefButtonWidth = 24;
@@ -30,7 +30,7 @@ type
 
   TToolbarButtonActionLink = class(TSpeedButtonActionLink)
   protected
-    procedure SetImageIndex(Value: Integer); override;
+    procedure SetImageIndex(Value: TImageIndex); override;
     function IsImageIndexLinked: Boolean; override;
     procedure SetEnabled(Value: Boolean); override;
     procedure SetCaption(const Value: string); override;
@@ -1350,7 +1350,7 @@ end;
 
 { TToolbarButtonActionLink }
 
-procedure TToolbarButtonActionLink.SetImageIndex(Value: Integer);
+procedure TToolbarButtonActionLink.SetImageIndex(Value: TImageIndex);
 begin
   FClient.Invalidate;
 end;