[el_barto]

esta es la instruccion usada:

Código Delphi [-]
 
procedure TForm1.IBDataSet1CalcFields(DataSet: TDataSet);
begin
with IBdataset1 do begin
     FieldByName('campo4').AsInteger:=FieldByName('campo2').AsInteger+FieldByName('campo3').AsInteger;
   end;
end;