inconveniente al momento de multiplicar registros

[dmagui]

Hola chicos:

estoy intentando hacer una multiplicacion bastante facil, pero el problema es que no me la esta guardando en el abase de datos

es facil tengo los siguientes campos:

costo_total, cant_comp, costo_unt, factor_desc

y pues uso el siguiente codigo..

Código Delphi [-]
 
procedure TForm3.Button1Click(Sender: TObject);
begin
with IBdataset1 do begin
 open;
  while not EOF do
  begin
     edit;
    if ibdataset1.FieldByName('SUBTOTAL').AsInteger = 1 then
     begin
          FieldByName('SUBTOTAL').AsFloat:=FieldByName('CANT_COMP').AsFloat*FieldByName('COSTO_UNT').AsFloat*(  FieldByName('FACTOR_DESC').AsFloat/100);
          next;
     end
    else begin
        FieldByName('SUBTOTAL').AsFloat:=FieldByName('CANT_COMP').AsFloat*FieldByName('COSTO_UNT').AsFloat;
        next;
     end;
  end;
 end;
ibdataset1.ApplyUpdates;
ibtransaction1.Commit;
ibdataset1.Active:=True;
end;

el problema es que no me guarda el resultado en la base de datos. Muchachos les agradezco si me pueden ayudar, estoy barada por algo tan sencillo como esto y no se por que???

Besos chupos y muchos abrazos