Achei a seguinte procedure: procedure TfrmVLENTR.ValidaKey(Const Sender: TObject; var key: char); begin if not(key in ['0'..'9','.',',',#8,#13]) then key := #0; if key in [',','.'] then key := DecimalSeparator; if key = DecimalSeparator then if pos(key,TMaskEdit(Sender).Text) <> 0 then key := #0; end; na dia onde a encontrei, foi colocado para usá-la no evento onchange. Gostaria de saber qual procedimente de fazer para colocar esta procedure no meu código, onde devo declara-la, e como devo chama-la (estou usando o componente TMaskEdit). Se alguém puder ajudar, fico grato. Até mais.