[Casimiro Noteví]

Creo que negrokau se refiere a cuando se pulsa la tecla.

En el evento keypress

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