Actualizaciones de Campos en un ADOQuery!!

[Chocoslovaco]

Buenas Tardes (desde México) a To2:
Soy totalmente nuevo en desarrollo de Delphi, pero creo que ya le tome el suficiente cariño. Estoy haciendo un aplicacion para actualizaciones en un BD de Access (97) y Delphi 7. Quisiera saber si:¿Mi codigo es Correcto?, (al compilarlo no marca ningun error), o si las operaciones que intento hacer a nivel de registros ¿Son Correctas?, Todo mi codigo avanza aparentemente bien, pero no observo ningun cambio en la BD , Anexo parte de mi codigo, ojala y alguien puede auxiliarme. Gracias
QKardex,QActualiza, QInsertados: son objetos TADOQuery en mi Form.

Código Delphi [-]
  
.
.
with QKardex do 
begin   //Inicia With QKardex
   Close; SQL.Clear;
   SQL.Text:='SELECT IdCrédito,Pagada,PagadaE..'
   Open;
   if Not(Eof) then //SI CONSULTA KARDEX NO ES VACIA
     begin
     Edit;
     FieldValues['ImporteE']:=FieldValues['ImporteE']+ QActualiza.FieldValues['Aplicar'];
     if FieldValues['ImporteE']>=FieldValues['Totales'] then
       begin // SI ImporteE>=Totales
       if FieldValues['ImporteE']>FieldValues['Totales'] then
         begin
         AbonoP:=FieldValues['ImporteE'] - FieldValues['Totales'];
         QInsertados.Close;
         QInsertados.SQL.Clear;
         QInsertados.SQL.Text:='INSERT INTO [Abonos Pendientes] (Cliente,Importe,IdAbono) VALUES('+ Quotedstr(Cliente) + ',' + IntToStr(prNoFactura) +')';
         QInsertados.ExecSQL;
          FieldValues['ImporteE']:= FieldValues['Totales'];
          QInsertados.Close;
          end;// Fin ImporteE>Totales
          FieldValues['Pagada']:=-1; FieldValues['PagadaE']:=-1;
          FieldValues['Parcial']:=0; FieldValues['ParcialE']:=0;
          FieldValues['Importe']:=FieldValues['ImporteE'];
          Update;
          QInsertados.SQL.Clear;
          QInsertados.SQL.Text:='UPDATE Pedidos SET Pagada=-1,PagadaE=-1,ParcialE=0,ImporteE='+ FieldValues['Importe'] + ' WHERE IdPedido=' + FieldValues['IdCrédito'];
          QInsertados.ExecSQL;
          QInsertados.Close;
          end
        else //Else SI ImporteE>=Totales
          begin ....
              .....

SALUDOS. Oswaldo Jr