tdbedit no me ingresa numeros decimales

[varelacarlos14]

tengo un stringgrid en el cual voy mostrando los datos que quiero guardar.

procedure Tfagremenu.belegirClick(Sender: TObject);
begin
sgalimentoxmenu.Cells[0,sgalimentoxmenu.RowCount-1]:=modulo_datos.Qalimentos['id_alimen'];
sgalimentoxmenu.Cells[1,sgalimentoxmenu.RowCount-1]:=modulo_datos.Qalimentos['descripcion'];
sgalimentoxmenu.Cells[2,sgalimentoxmenu.RowCount-1]:=Ecantidad.Text;
Ecantidad.Text:='';
sgalimentoxmenu.RowCount:=sgalimentoxmenu.RowCount+1;
end;