Помогите реализовать свойство

[Neznayka2016]

  TCustomBook = class(TFmxObject)
  private
    FList: TObjectList<TButton>;

  protected
    { Protected declarations }

  public
    { Public declarations }

    constructor Create(AOwner: TComponent); override;
  published

  end;
implementation

constructor TCustomBook.Create(AOwner: TComponent);
begin
  inherited Create (AOwner);
  FList:= TObjectList<TButton>.Create(True);
end;

end.

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

....
Var
  Book: TCustomBook;
....

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  btn: TButton;
begin
  btn:= TButton.Create(Self);
...
  btn.Text:= Book[i].Text;
end;

заранее благодарен

[BLACK_RAIN]

как-то так:

  TCustomBook = class(TFmxObject)
  private
    FList: TObjectList<TButton>;
    function Get(nIndex : Integer) : TButton;
  protected
    { Protected declarations }

  public
    { Public declarations }

    constructor Create(AOwner: TComponent); override;
    property Buttons[nIndex : Integer] : TButton read Get; default;
  published

  end;
implementation

constructor TCustomBook.Create(AOwner: TComponent);
begin
  inherited Create (AOwner);
  FList:= TObjectList<TButton>.Create(True);
end;

function TCustomBook.Get(nIndex : Integer) : TButton;
begin
  result := FList[nIndex];
end;

end.

писал в блокноте.
а разве у TButton есть свойство Text?

[AlexMas]

Конечно! Называется Caption =)

[Neznayka2016]

Сообщение от BLACK_RAIN

как-то так:

  TCustomBook = class(TFmxObject)
  private
    FList: TObjectList<TButton>;
    function Get(nIndex : Integer) : TButton;
  protected
    { Protected declarations }

  public
    { Public declarations }

    constructor Create(AOwner: TComponent); override;
    property Buttons[nIndex : Integer] : TButton read Get; default;
  published

  end;
implementation

constructor TCustomBook.Create(AOwner: TComponent);
begin
  inherited Create (AOwner);
  FList:= TObjectList<TButton>.Create(True);
end;

function TCustomBook.Get(nIndex : Integer) : TButton;
begin
  result := FList[nIndex];
end;

end.

писал в блокноте.
а разве у TButton есть свойство Text?

А это что?

За помощь спасибо!

[BLACK_RAIN]

Сообщение от Neznayka2016

А это что?

На компонентах редко пишу. Оно же Caption всегда было.