Ponto decimal

If Key in [',','.'] then Key := DecimalSeparator; {Coloque no evento OnKeyPress dos seus TEdits numéricos }