Moin Wadim,
oder eine andere Variante, unter Ausnutzung der Eigenschaft Tag:
Delphi-Quellcode:
case (Sender as TButton).Tag of
//...
end;
Hierfür muss sichergestellt sein, dass der Sender auch tatsächlich immer eine TButton-Kompo (oder Ableitung davon) ist, und Du musst für jeden Button den Wert für Tag entsprechend setzen.