dataset.free Error

[Enan0]

Tengo el Siguiente error.. Cuando Quiero hacer el FREE del objeto Adataset (del tipo TADODataset)..

el error es..

El valor EOF o BOF es True, o el actual registro se elimino; la operacion solicitada requiere de un registro actual.

Código Delphi [-]
           Adataset:=TAdodataset.create(nil);
           SelectTodo(ADataSet,TIPO);
           If adataset.Eof and adataset.bof then
             exit
           else
             While not Adataset.Recordset.Eof  do
               BEGIN
                 Application.ProcessMessages;
                 aux.MsgID:=ADataSet.Recordset.Fields.Item['MsgID'].value;
 
  //Aca hago varios tonterias pero nada del otro mundo
 //recorro el record.
 
                   ADataSet.Recordset.MoveNext;
               end;
           if ADataSet.Eof and Adataset.bof then
             ADataSet.Recordset.EOF;
 
           Adataset.Free;
           EscribirAuditoria('Fin EliminarRecordGW RecAppoint');