Captions no DBNavigator no Delphi

Por padrão, o DBNavigator não possui uma propriedade para especificar os captions dos botões, mas isto pode ser resolvido com o código abaixo:

type
  TMeuDBNavigator = class(TDBNavigator);

procedure TForm1.FormCreate(Sender: TObject);
const
  Legendas: array[TNavigateBtn] of string = (
    'Primeiro', 'Anterior', 'Próximo', 'Último',
    'Incluir', 'Excluir', 'Editar', 'Salvar',
    'Cancelar', 'Atualizar');
var
  Botao: TNavigateBtn;
begin
  for Botao := nbFirst to nbRefresh do
  begin
    with TMeuDBNavigator(DBNavigator1).Buttons[Botao] do
    begin
      Caption := Legendas[Botao];
      Layout := blGlyphTop;
    end;
  end;
end;