se me olvidaba.. y si solo quieres trabajar con el Edit normal, puedes utilizar el sgte codigo en el evento onKeyPress
Código Delphi
[-]
If Key = #13 Then vUnd.SetFocus; If Key='.' Then Key:=','; If Pos(',',vCtd.Text)=0 then
If not (Key in ['0'..'9',',',#8]) Then Key :=#0 Else Exit
Else
If not (Key in ['0'..'9',#8]) Then Key :=#0;
Salu2