[roman]

Quedaría un poco más prolijo con un case:

Código Delphi [-]
case Button of
  nbFirst: ... ;
  nbPrior: ... ;
  nbPrior: ... ;
  nbLast: ... ;
  nbInsert: ... ;
  nbEdit: ... ;

  etcétera
end;

// Saludos