Hier mal ein Tipp meinerseits:
Leite dir eine eigene Klasse von Button ab un füg ihr eine Eigenschaft "Zahl" vom Typ String zu. Dieser Eigenschaft gibts du dann je nach Button die Werte '0' bis '9' (Sollte direkt im Designer gehen). Dann leitest du ALLE Buttonklicks auf eine Methode um (Also im Designer, beim Event Click, für jeden Modifizierten Button, diese Methode angeben):
Delphi-Quellcode:
procedure TForm1.MyButtonClick(Sender: TObject);
var
MyButton: TMyButton;
begin
MyButton := TMyButton(Sender);
ZahlKlick(MyButton.Zahl);
end;