Capturar Código de Teclas Pulsadas

[lKinGl]

Salu2 amigos foristas

¿como puedo capturar el código de una tecla pulsada en un messagebox o en showmessage?

ejemplo cuando yo pulse enter me salga un message box o un showmessage con el siguiente resultado:

#13


Gracias adelantas

[lKinGl]

o en un label o lo que sea mas sencillo solo quiero saber el código las teclas que pulso

[[coso]]

en el evento onkeydown...showmessage(inttostr(key))

[lKinGl]

gracias coso funciono bien el codigo que me facilitaste pero ahora me surge una nueva duda por que creí que al saber que tecla se pulsaba podia controlarlo de esta manera:

Código Delphi [-]
procedure TForm13.Edit1KeyPress(Sender: TObject; var Key: Char);
var
te:string;
begin
if key=#110 then
  begin
    edit1.Clear;
    edit1.Text:=te+',';
  end;

end;

lo que quiero dar a enteder con este código es que quiero que cuando yo presione la tecla punto (al lado del cero "0") se escriba la coma en ves del punto

pero no me ha funcionado podrias ayudarme?

[lKinGl]

ya lo solucioné logra restringir todas las teclas menos los números y las comas de esta forma (Aunque no era lo que queria me soluciona el problema):

Código Delphi [-]
 procedure TForm13.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
 if not(Key in ['0'..'9',',',#8]) then   
   begin     
     Key:=#0;   
   end; 
end;

[[coso]]

en tu mismo codigo...if key = ',' then key := '.' ( o al reves...)

[lKinGl]

Hola coso disculpa que no conteste antes pero es que en mi universidad la conexion es terrible, tal como dijiste, el problema se solucionó con tus sugerencias

publico el codigo para que le sirva a alguien más

Código Delphi [-]
if key='.' then
  begin
    key:=',';
  end;
if not(Key in ['0'..'9',',','.',#8]) then
  begin
    Key:=#0;
  end;