en parte te puede servir esto...
Código Delphi
[-]
If Key = #13 Then vDes.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;
hay que ponerlo en el evento onKeyPress del Edit
Salu2
