DBgrid calcular en campo

[CrazySoft]

Gracias ecfisa

hice lo que me dijiste pero aun tengo problemas, puse el valor de 2+2-1 y da error "2+2-1 no es valor de coma flotante ..."

y tampoco me permite ingresar / o * en el campo

el campo que estoy usando es de tipo real

hice la prueba con un campo de tipo texto y me funciono bien, pero mi problemas es que lo necesito que sea numerico

asi esta mi codigo, que podria hacer????

Código Delphi [-]
Uses CalcExpress;

function TForm1.CalcularExpresion(Expre: string): Real;
var
  CalcExpress1: TCalcExpress;
  args: array[0..100] of extended;
begin

  CalcExpress1 := TCalcExpress.Create(self);
  CalcExpress1.Formula := Expre;
  result := CalcExpress1.calc(args);
  CalcExpress1.free;

end;

procedure TForm1.ADOTable1ValorGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);

begin

     Text := floattostr(CalcularExpresion(TField(Sender).Value));

end;

Gracias