Trocando ponto por vírgula em tedits

{A maioria dos teclados possui apenas o ponto no teclado numérico. Mas se você precisar utilizar a vírgula como separador decimal, utilize a seguinte rotina no evento OnKeyPress do Edit: (lembre-se que DecimalSeparator contém o separador decimal (que não necessáriamente está em português). Veja em Internacional no Painel de Controle)}
begin
if key = '.' then
key:= DecimalSeparator;
end;