Помогите отсортировать список

[Neznayka2016]

  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.

как добавить свой компаратор, для сортировки элементов списка (к примеру по свойству TagFloat)&