Ayuda formatfloat para un TEDIT

[[BlueSteel]]

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