Tecla punto como coma decimal

[Kubelo]

Hola, he buscado en los diferentes hilos que hay pero no he encontrado solución a mi problema.

Mi problema es que necesito que al pulsar tanto la coma como el punto, lo coja como separador decimal. He probado varios ejemplos en el Keypress que a continuación os pongo, pero el punto me lo ignora. Imagino que tendré que modificar algo de la coma decimal o algo de eso, pero no lo domino demasiado.

Estos son los casos que he probado:

Código Delphi [-]
procedure EditKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if ( StrScan('0123456789,.'+chr(7)+chr(8), Key) = nil ) then Key := #0;
end;

Y por otro lado:

Código Delphi [-]
procedure EditKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if not (key in ['0','1','2','3','4','5','6','7','8','9',',','.', #7, #8, #13]) then
  begin
    Key := #0;
    Beep;
  end;
end;

Agradezco vuestra ayuda de antemano!