rochajl

Tenho um banco no firebird com um campo do tipo float. Consegui fazer as configurações para que ele apareça com R$, aceite somente numeros e tudo mais. Estou tendo problemas no edit onde o usuário deverá digitar o valor. Não estou conseguindo travar a digitação para apenas duas casas decimais. Eu queria que ele digitasse somente: 2,35 ou 2,98, mas está em aberto: 2,33333356656. Como faço para resolver. Relembrando: o campo é do tipo float. Se alguém puder ajudar, agradeço.

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.