The code changes the color, width, and position of the text in the Help Hint for the speed button.

procedure TForm1.acAppEventsShowHint(var HintStr: String; var CanShow: Boolean; var HintInfo: THintInfo);
begin
  if HintInfo.HintControl = SpeedButton3 then
  begin
    with HintInfo do
    begin
      HintColor := clAqua; { Changes only for this hint }
      HintMaxWidth := 120; {Hint text word wraps if width is greater than 120 }
      Inc(HintPos.X, SpeedButton3.Width); { Move hint to right edge }
    end;
  end;
end;