FindStyleResource Что нужно сделать, чтобы можно было использовать свой компонент в стиле?

[Ra72]

Создал компонент:

type
  TTube = class(TFmxObject)
  private
    FTheColor: TAlphaColor;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property TheColor: TAlphaColor read FTheColor write FTheColor;
  end;

constructor TTube.Create(AOwner: TComponent);
begin
  inherited;
  FTheColor := $FFFFFFFF;
end;

Вставил его в StyleBook.

    object TTube
      StyleName = 'tube1'
      TheColor = claViolet
    end

Ищу его в стилизованном контроле:
 

var
  tube: TTube;
begin

  tube := ATarget.FindStyleResource('tube1') as TTube;

Не находится компонент. 
Стандартные Text, Rectangle... находятся таким способом, а свой - нет.
Что я делаю не так?

Изменено 22 января, 2016 пользователем Brovin Yaroslav

[Ra72]

Дополнительно выяснил, что мой компонент не попадает в FChildren своего контейнера.

[Ra72]

Проблема решена, надо было зарегистрировать класс TTube:

RegisterFmxClasses([TTube]);

• Редактирование стиля, как добавить "TStyleObject", "TActiveStyleObject" и т.п.?

Изменено 27 января, 2016 пользователем Brovin Yaroslav
добавил код