Efecto pulsar teclas

[creus]

Necesito pulsar un numero en el teclado y se vea el efecto en el boton tanto de pulsar como de soltar el boton.

Gracias por la atención.

[sinalocarlos]

Button1.Perform(WM_LButtonDown,0,0);
// aqui un Sleep para que se note el down
//aqui llama el onclic
Button1.Perform(WM_LButtonUp,0,0);