Yo lo que haría es esto:
Pongo un Edit y diez botones en el formulario. A cada botón le asigno a su propiedad Tag, el numero que le corresponda (0 al botón 0,1 al botón 1, 2 al botón 2, etc.). Luego asigno a todos los botones un mismo evento OnClick así:
Código Delphi
[-]
procedure TForm1.ButtonClick(Sender: TObject);
begin
Edit1.Text := Edit1.Text + Chr(Ord('0') + (Sender as TControl).Tag);
end;
// Saludos