[novato_erick]

Dejame ver si te entiendo:
dices mi variable el cual almacena cada caracter es NumTeclado que es de tipo word;

este es mi codigo

Código Delphi [-]
 procedure Tfrmfactura.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
   VK_NUMPAD0: NumTeclado:= '0';
   VK_NUMPAD1: NumTeclado:= '1';
   VK_NUMPAD2: NumTeclado:= '2';
   VK_NUMPAD3: NumTeclado:= '3';
   VK_NUMPAD4: NumTeclado:= '4';
   VK_NUMPAD5: NumTeclado:= '5';
   VK_NUMPAD6: NumTeclado:= '6';
   VK_NUMPAD7: NumTeclado:= '7';
   VK_NUMPAD8: NumTeclado:= '8';
   VK_NUMPAD9: NumTeclado:= '9';
   end;
end;

y en el Button1 y asi sucesivamente para cada button2, etc.

Código Delphi [-]
procedure Tfrmfactura.Button10Click(Sender: TObject);
begin
 NumTeclado:= VK_NUMPAD0;
end;

me e equivocado en algo porque el compilador me desconce el tipo word y chard.

Gracias por tu ayuda