[martini002]

Gracias David, vamos a poner a prueba esto

Edito:
Bueno paradogicamente dice que es la tecla 46
pero tengo un evento OnKeyPress de un DBGrid
y cuando presiono la 46 no hace nada

Código Delphi [-]
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #46) then
  ShowMessage('Hola');
end;

y asi quedo el codigo del evento OnKeyUp para quien le pueda servir

Código Delphi [-]
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  ShowMessage(IntToStr(Integer(Key)));
end;