Index: lcl/buttons.pp
===================================================================
--- lcl/buttons.pp	(revision 64160)
+++ lcl/buttons.pp	(working copy)
@@ -290,9 +290,11 @@
     procedure AssignClient(AClient: TObject); override;
     procedure SetGroupIndex(Value: Integer); override;
     procedure SetChecked(Value: Boolean); override;
+    procedure SetImageIndex(Value: Integer); override;
   public
     function IsCheckedLinked: Boolean; override;
     function IsGroupIndexLinked: Boolean; override;
+    function IsImageIndexLinked: Boolean; override;
   end;
 
   { TCustomSpeedButton }
Index: lcl/include/speedbutton.inc
===================================================================
--- lcl/include/speedbutton.inc	(revision 64160)
+++ lcl/include/speedbutton.inc	(working copy)
@@ -1224,6 +1224,12 @@
     (SpeedButton.GroupIndex = (Action as TCustomAction).GroupIndex);
 end;
 
+function TSpeedButtonActionLink.IsImageIndexLinked: Boolean;
+begin
+  Result := inherited IsImageIndexLinked and
+    (TSpeedButton(FClient).ImageIndex = (Action as TCustomAction).ImageIndex);
+end;
+
 procedure TSpeedButtonActionLink.SetGroupIndex(Value: Integer);
 begin
   if IsGroupIndexLinked then TCustomSpeedButton(FClient).GroupIndex := Value;
@@ -1234,7 +1240,13 @@
   if IsCheckedLinked then TCustomSpeedButton(FClient).Down := Value;
 end;
 
+procedure TSpeedButtonActionLink.SetImageIndex(Value: Integer);
+begin
+  if IsImageIndexLinked then
+    TSpeedButton(FClient).ImageIndex := Value;
+end;