Capturar Código de Teclas Pulsadas

[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?