Si lo que quieres es sumar los campos y guardarlos en la base de datos lo que tendrias que hacer es lo siguiente:
Código Delphi
[-]procedure TForm1.IBDataSet1BeforePost(DataSet: TDataSet);
begin
with IBdataset1 do begin
FieldByName('campo4').AsInteger:=FieldByName('campo2').AsInteger*FieldByName('campo3').AsInteger;
end;
end;
despues usas un boton para hacer un apllyupdate y un commit.
PDT: si me salio vt
, te acuerdas