Ayuda con While

[sancarlos]

tengo este codigo :

Código Delphi [-]
  COBROS.First;

  WHILE NOT COBROS.Eof DO BEGIN
         comisiones.Active:=true;
         COMISIONES.First;
        WHILE NOT COMISIONES.EOF DO BEGIN
            IF COMISIONESFACTURA.AsInteger=COBROSFACTURA.AsInteger    THEN BEGIN
                COMISIONES.EDIT;
                 COMISIONESESTADO.AsString:='SI';
                 COMISIONESFECHAPAGADA.AsString:=DATETOSTRFECHA.DATETIME);
                COMISIONES.POST;
            END;
         COMISIONES.NEXT
        END;
       COBROS.NEXT;
     END;
 
////FIN COMIISONES///

Bien si el sistema no encuentra ninguna factura en la tabla comisiones , todo bien, pero si la alla una se enclica el while, nunca sale.

Con sql y access , lo hace bien el problema lo encontre con mysql.

Agradezco cualquier orientacion

Estoy usando un mysqlquery de los componentes de dacmysql