Usas teclado numérico.

[ecfisa]

Hola Faust.

Si te referís a que el botón baje y suba como si se hubiera realizado un click con el mouse, no.

Pero se puede escribir algo de código para hacerlo:

procedure TForm1.HacerClick(Sender: TButton);
begin
  with (Sender as TButton) do
  begin
    Perform(WM_LBUTTONDOWN, MK_LBUTTON,0);
    Sleep(250);   // un poco de espera para que se note...
    Perform(WM_LBUTTONUP, MK_LBUTTON,0);
  end;
end;

Y utilizarlo así :

....
  case Key of
     VK_NUMPAD0: HacerClick(Button0);
     VK_NUMPAD1: HacerClick(Button1); 
  end;
...

HacerClick, dispara el evento OnClick del ButtonX, como si se hubiese pulsado sobre él.

Saludos.