Delphi - Block Numerico y teclas???

hola, mi problema es que no hallo la forma de mediante un boton hacer como si se presionara una tecla, es decir:

boton1.caption:='1';
si presionamos el boton hacer como si se presionara la tecla con el numero "1" del block numerico del teclado.
boton1.caption:='2'; como si se presionara la 2 del block numerico.
igualmente seria con los demas botones.....

ah, y como mantener activado el block numerico mientras se ejecuta el programa...
bueno me despido espero me entiandan.....

Para mantener estado del block numerico se hace la siguiente manera.
procedure TForm1.Button3Click(Sender: TObject);
var
Teclado: TKeyboardState;
begin
Teclado [VK_NUMLOCK]:=1;
end;
Y la otra parte sobre los numeros no me queda claro, pero creo que lo quieres hacer es que cuando oprimis el boton1.caption:='1'; deberia aparecer un uno en un control edit.
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Edit1.text := '1'
end;