Delphi Calcular

procedure Calcular;
begin
       edit_Total.Text := StrToFloat(Edit_Total.Text + Edit_Salario.Text + Edt_Custo.Text + Edit_Adcional) ;

      if Edit_Total.Text <> 0 then
         Edit_Total.Text := FormatFloat('0.00',SrtToFloat(Edit_Total.Texte)
      else
            Edit_Total.Text := FormatFloat('0.00',0);
end;


-----------------------------------
var a,b,c, total: Real;
begin
a:= DBEdit6.Field.AsFloat;
b:= DBEdit7.Field.AsFloat;
c:= DBEdit8.Field.AsFloat;
total:= (a * b * c);
DBEdit9.Field.AsFloat:= total;
end;

-------------------------------------------
na saida de um campo (on exit) do dbedit
Tenho três DBEdit (DBEditQuantidade, DBEditValor_Compra e DBEditTotal_Compra) preciso que o DBEDitTotalCompra mostre o calculo:

DBEDitQuantidade * DBEDitValor_Compra


O DBEDitQuantidade está definido com INTEGER e o DBEDitValot_Compra, DBEDitTotal_Compra defido como $.
Table1.FieldByName('CampoqueRecebeTotal')Value:=Table1.FieldByName('CampoSoma1')Value * Table1.FieldByName('CampoSoma2').Value;

-------------------