ADOQuery->Close()시에 에러가 나거든요???

먼저 소스는.. 다음과 같거든요???


    try{
        if(ADOCon->Connected == false)
            ADOCon->Open();
    }catch(Exception& e){

        SetMsgBox("ADO Open : " + e.Message, "에러");
        return;
    }

    AnsiString strSQL;
    AnsiString strSQLTot;

    strSQLTot = "SELECT * FROM bb GROUP BY GUBUN";

    TStringList *TempListTot = new TStringList; // declare the list
    String strFormulaTot;
    TVarRec vTot[] = {strSQLTot};
    strFormulaTot = Format("%s", vTot, ARRAYSIZE(vTot)-1);
    TempListTot->Add(strFormulaTot);//add a string to the list



    strSQL += "SELECT * from aaa";


    TStringList *TempList = new TStringList; // declare the list
    String strFormula;
    TVarRec v[] = {strSQL};
    strFormula = Format("%s", v, ARRAYSIZE(v)-1);
    TempList->Add(strFormula);//add a string to the list

    //ShowMessage(strFormula);

    TCursor Save_Cursor = Screen->Cursor;
    Screen->Cursor = crHourGlass;    // Show hourglass cursor
    pnlSelect->Visible = true;
    try
    {


        //ADOQueryTot
        ADOQuery1->Connection = ADOCon;
        ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        ADOQuery1->SQL = TempListTot;
        ADOQuery1->CursorLocation = clUseClient;
        ADOQuery1->CursorType = ctStatic;
        ADOQuery1->Open();

        if(ADOQuery1->RecordCount > 0){
            lblFine3->Caption       = ADOQuery1->Fields->Fields[0]->AsString;
            lblOutOfOrder3->Caption = ADOQuery1->Fields->Fields[1]->AsString;
            lblTotal3->Caption      = ADOQuery1->Fields->Fields[2]->AsString;

        }else{
            lblFine3->Caption = "0";
            lblOutOfOrder3->Caption = "0";
            lblTotal3->Caption = "0";
        }
        ADOQuery1->Close();




        //ADOQuery
        ADOQuery2->Connection = ADOCon;
        ADOQuery2->Close();
        ADOQuery2->SQL->Clear();
        ADOQuery2->SQL = TempList;
        ADOQuery2->CursorLocation = clUseClient;
        ADOQuery2->CursorType = ctStatic;
        ADOQuery2->Open();

        QuickRep3->Prepare();
        totLabel3->Caption = QuickRep3->QRPrinter->PageCount;
        QuickRep3->QRPrinter->Free();
        QuickRep3->QRPrinter = NULL;

        QuickRep3->Zoom = 80;

    }
    __finally
    {
        Screen->Cursor = Save_Cursor; // always restore the cursor
        pnlSelect->Visible = false;
    }

    try{
        QuickRep3->Preview();
    }
    __finally
    {
            ADOQuery2->Close();
            delete TempList;
            delete TempListTot;
    }

이게 원본 소스인데요... 마지막에 ADOQuery2->Close(); 부분에서 다음의 에러가 발생합니다...
BOF 또는 EOF 가 참이거나 ,현재레코드를 삭제했습니다.요청한 작업에 현재레코드가 필요합니다.
라는 메세지가 나타납니다...
원인을 모르겠거든요??
아시는 분 알려주십시요..
그럼 부탁드립니다