Trocando ponto por virgula

{TForm1.FormKeyPress}
if key= '.' then
key:=',';