if key = vkPeriod then key := vkcomma

[amadis]

Normalmente en VCL lo hacía en el evento ONKEYPRESS, de los TEdit que deben trabajar con numeros enteros.

Lo hacía poniendo

Código Delphi [-]
if key = '.' then key := ',';

En Firemonkey no existe más el Keypress, porque por razones entendibles no se apretan teclas ya que son virtuales, en su lugar podemos usar onkeyDown, y onkeyup.

Por eso pretendía en el evento Onkeydown cambiar el valos de key

Código Delphi [-]
procedure EditKeyDown(Sender: TObject; var Key: Word;
  var KeyChar: Char; Shift: TShiftState);
begin
if key = vkPeriod  then  key := vkComma;
end;

la variable key no debe ser solo lectura porque no me dio error al asignarla.

Por el momento lo tengo solucionado, leyendo el string antes de usarlo. Lo proceso, cambio el punto por la coma. Y luego hago las operaciones necesarias.

Pero la idea era en tiempo real que al presionar PUNTO, salga COMA.