Сдвиг вправо SpinLeft, SpinRight в TTabControl

[Winexcel]

Доброго времени суток, подскажите пожалуйста как правильно стилизовать спины у TTabControl чтобы они были за границами самого TTabControl. Сама стилизация работает, вопрос в том как сделать так чтобы спины были за пределами TTabControl справа, например спины имеют ширину в 15 пикселей, я хочу задать у первого спина отступ Right= -15 (для левого спина), и у правого спина отступ Right = -30(для правого спина). Чтобы они вышли за границы компонента, пробовал сделать следующее: перегрузил метод DoUpdateTabBarButtons:

procedure TChromeTabControl.DoUpdateTabBarButtons(const TabBarButtons: FMX.TabControl.TTabControl.TTabBarButtons; const TabPosition: TTabPosition;
 const Content: TContent; var TabBarControls: FMX.TabControl.TTabControl.TArrayTabBarControls);
begin
  inherited;
  TabBarControls[TTabBarButton.Left].Width:=15;
  TabBarControls[TTabBarButton.Right].Width:=15;
  TabBarControls[TTabBarButton.Right].Position.X :=TabBarControls[TTabBarButton.Right].Position.X+15;
  TabBarControls[TTabBarButton.Right].Position.X :=TabBarControls[TTabBarButton.Right].Position.X+15;
end;

Перемещение сработало, правда не совсем правильно, но не работает событие OnClick у кнопки, то есть если я пытаюсь на спин нажать он не нажимается, подскажите пожалуйста кто знает как правильно сделать сдвиг спинов.

Изменено 23 апреля, 2017 пользователем Winexcel

[Winexcel]

Реализовал логику данных спинов с нуля сам, но вопрос остаётся открытым.