[marcoszorrilla]

Entonces lo que buscas es esto:

Código Delphi [-]
 procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
 var
  BtnName: string;
 begin
  case Button of
    nbFirst  : BtnName := 'nbFirst';
    nbPrior  : BtnName := 'nbPrior';
    nbNext   : BtnName := 'nbNext';
    nbLast   : BtnName := 'nbLast';
    nbInsert : BtnName := 'nbInsert';
    nbDelete : BtnName := 'nbDelete';
    nbEdit   : BtnName := 'nbEdit';
    nbPost   : BtnName := 'nbPost';
    nbCancel : BtnName := 'nbCancel';
    nbRefresh: BtnName := 'nbRefresh';
 
  end;
  MessageDlg(BtnName + ' button clicked.', mtInformation, [mbOK], 0);
 end;

Un Saludo.