Hola!
Te podías crear una función que cuando pulsaras una tecla de un campo numérico la llamaras:
Código:
function fSepDecimal(tecla: char) : char;
begin
if DECIMALSEPARATOR = ',' then begin
if tecla = '.' then Result:= ','
else Result := tecla;
end
else begin
if tecla = ',' then Result:= '.'
else Result := tecla;
end;
end;
La llamarías de esta forma:
Código:
key := fSepDecimal(key);
Espero que te sirva.
Saludos!