conteo de registros distintos

[El Mike]

hola amigos del club..

Estoy utilizando delphi 6, acces y ADO... explicare mi problema.

Tengo un consulta en SQL que hago por medio de un TADOQuery es una consulta sencilla que solo da como resultado datos entre fecha inicial y fechafinal.

Código Delphi [-]
QCR.Close;
   QCR.SQL.Clear;
   QCR.SQL.Add('SELECT * from envios');
   QCR.SQL.Add('Where (envios.linea = :lin) and (envios.fecha Between :Fecha1 and :Fecha2)');
    QCR.Parameters.ParamByName('Lin').Value:=frmfreportes.Edopcion.Text;
   QCR.Parameters.ParamByName('Fecha1').Value:=strtodate(frmfreportes.MCdesde.Text);
   QCR.Parameters.ParamByName('Fecha2').value:=strtodate(frmfreportes.MCHasta.Text);
   QCR.active:=true;

   QCR.Open;

pues bien... esta consulta funciona muy bien.. pero lo que intento hacer es que tengo un campo que se llama "estatus" el cual puede tener el valor de "ACEPTADO" o "RECHAZADO" y lo que quiero es contar cuantos estan aceptados y cuantos rechazados..

ya lo intente en el ondatachange del TDataSource

Código Delphi [-]
procedure TFRMReportes.DataSource1DataChange(Sender: TObject; Field: TField);
begin
 if (frmreportes.qcr.FieldByName('estatus2').AsString)='ACEPTADO' THEN
   BEGIN
          contOK:=ContOK+1;
   END;
  
   if (frmreportes.qcr.FieldByName('estatus2').AsString)='RECHAZADO' then
     begin
            contNG:=ContNG+1;
     end;
end;

pero los resultados que me dan no corresponden a las cantidades de los registros...

saludos... y gracias por su ayuda