[Nuria]

Hola!

Te podías crear una función que cuando pulsaras una tecla de un campo numérico la llamaras:

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:

key := fSepDecimal(key);

Espero que te sirva.

Saludos!