procedure TForm1.Button1Click(Sender: TObject);
var
 ix: integer;
begin
 with DBNavigator1 do
  for ix := 0 to ControlCount - 1 do
  if Controls[ix] is TNavButton then
  with Controls[ix] as TNavButton do
  case index of
  nbFirst: Hint := 'Подсказка для кнопки First';
  nbPrior: Hint := 'Подсказка для кнопки Prior';
  nb: Hint := 'Подсказка для кнопки ';
  nbLast: Hint := '';
  {......}
  end;
end;