[richi]

Lo que pudes hacer es poner en el OnKeyPress del edit lo siguiente:

Código Delphi [-]
if (key in['0'..'9',#8,',']) then
  begin
    if (key = ',') then
    begin
      try
        temp  := strToFloat(Edit1.text+key);
      except
        key:= #0;
      end;
    end;
  end
  else
    key:= #0;

Siendo temp una variable de tipo real o currecy segun lo que te haga falta.