como mejorar este codigo... sumando campos

[Goyo]

buenas tardes amigos foristas....

estoy realizando un sistemita en el que capturo algunas cantidades, y a la vez estas se autosumen (en un campo "TOTAL") cada vez que cambio de Dbedit... aqui esta el codigo para que lo chequen, para mi es demasiado y creo que al compilar mi programa se tarda un poco, tal vez sea por este codigo:

Código Delphi [-]
procedure TCardexForm1.DBEdit3Exit(Sender: TObject);
begin
 try
// dm.TbEmpleados.Edit;
 dm.TbEmpleadosSueldoMensual.AsFloat := dm.TbEmpleados.FieldByName('Sueldo Base').AsFloat + dm.TbEmpleados.FieldByName('Gastos Exentos').AsFloat + dm.TbEmpleados.FieldByName('Prev. Social Mult').AsFloat + dm.TbEmpleados.FieldByName('Quinquenios').AsFloat + dm.TbEmpleados.FieldByName('Serv. Extraordinarios').AsFloat + dm.TbEmpleados.FieldByName('ssvc').AsFloat + dm.TbEmpleados.FieldByName('ayuda de transporte').AsFloat + dm.TbEmpleados.FieldByName('Capac y Desarrollo').AsFloat + dm.TbEmpleados.FieldByName('Compensacionespecial').AsFloat + dm.TbEmpleados.FieldByName('Compensacion').AsFloat + dm.TbEmpleados.FieldByName('Despensa').AsFloat;
  Except
end;
end;

no se si exista alguna otra forma de mejorar este codigo, o cambiarlo totalmente, lo que hago es que al introducir una cantidad en un DBEdit (son varios), se vaya autosumando en otro DBEditx (Suma total de los campos), tengo varios DBEdit y en su propiedad DataField (campos de mi tabla de acuerdo al campo a introducir) y en la propiedad DataSource: DM.DsEmpleados "Tbempleados" que es mi tabla de Paradox...
de esta forma si hace lo que quiero de ir autosumando los campos en el Campo: SueldoMensual...

espero me ayuden, de momento mil gracias y un saludo