Не работает DELETE для "повторяющихся" строк

        int k = 0;
 
        MainForm->Tbl_Wthr->Close();
        MainForm->Tbl_Wthr->LockType = ltBatchOptimistic;
        MainForm->Tbl_Wthr->Open();
 
        for (int i = FileList.size() - 1; i >= 0; i--) {
            MS->LoadFromFile(FileList[i].FN);
            LUDT = SaveData(MS, LUDT, true);
 
            DLF_ProgBar->Position = ++k;
            Application->ProcessMessages();
        }
 
        if (LUDT > MainForm->GetLastUDT()) {
            MainForm->SetLastUDT(LUDT);
            MainForm->QrRd->Close();
            MainForm->QrRd->SQL->Text = "DELETE FROM Period WHERE DT < :pDT";
            MainForm->QrRd->Parameters->ParamByName("pDT")->Value =
                LUDT - TDateTime(30);
            MainForm->QrRd->Prepared = true;
            MainForm->QrRd->ExecSQL();
        }
 
 /*     MainForm->QrRd->Close();
        MainForm->QrRd->SQL->Add("DELETE a.* FROM Weather AS a, (SELECT * FROM Weather)  AS b");
        MainForm->QrRd->SQL->Add("WHERE (a.DT >= :pDT AND (a.ID_MD = b.ID_MD) AND (a.DT = b.DT)");
        MainForm->QrRd->SQL->Add("AND (a.LAT = b.LAT) AND (a.LON = b.LON) AND (a.SOURCE = b.SOURCE)");
        MainForm->QrRd->SQL->Add("AND (a.QUAL > b.QUAL OR a.UDT < b.UDT) AND (NOT(a.ZNCH IS NULL)) AND (NOT(b.ZNCH IS NULL)))");
        MainForm->QrRd->Parameters->ParamByName("pDT")->Value = LUDT;
        MainForm->QrRd->Prepared = true;
        MainForm->QrRd->ExecSQL();
 */
        MainForm->Tbl_Wthr->UpdateBatch(); //  arAll
        MainForm->Tbl_Wthr->Close();
        MainForm->Tbl_Wthr->LockType = ltOptimistic;
        MainForm->Tbl_Wthr->Open();

        DLF_QrRd->Close();
        DLF_QrRd->SQL->Text =
            "DELETE FROM Weather WHERE ID_MD = :pMD AND DT = :pDT AND SOURCE = :pSRC AND (QUAL >= :pQUAL OR UDT < :pUDT) AND (LAT BETWEEN :pLAT1 AND :pLAT2) AND (LON BETWEEN :pLON1 AND :pLON2)";
        DLF_QrRd->Parameters->ParamByName("pMD")->Value = ID_MD;
        DLF_QrRd->Parameters->ParamByName("pDT")->Value = ProgDT;
        DLF_QrRd->Parameters->ParamByName("pUDT")->Value = LUDT;
        DLF_QrRd->Parameters->ParamByName("pSRC")->Value = source;
        DLF_QrRd->Parameters->ParamByName("pQUAL")->Value = abs(iDY);
        DLF_QrRd->Parameters->ParamByName("pLAT1")->Value = iLTmin;
        DLF_QrRd->Parameters->ParamByName("pLAT2")->Value = iLTmax;
        DLF_QrRd->Parameters->ParamByName("pLON1")->Value = iLon1;
        DLF_QrRd->Parameters->ParamByName("pLON2")->Value = iLon2;
        DLF_QrRd->Prepared = true;
        DLF_QrRd->ExecSQL();
 
        DLF_QrWrt->Close();
        DLF_QrWrt->SQL->Text =
            "INSERT INTO Weather VALUES (:pMD, :pDT, :pLAT, :pLON, :pSRC, :pZNCH, :pUDT, :pQUAL, :pPDT)";
        DLF_QrWrt->Parameters->ParamByName("pMD")->Value = ID_MD;
        DLF_QrWrt->Parameters->ParamByName("pDT")->Value = ProgDT;
        DLF_QrWrt->Parameters->ParamByName("pSRC")->Value = source;
        DLF_QrWrt->Parameters->ParamByName("pUDT")->Value = MsgDT;
        DLF_QrWrt->Parameters->ParamByName("pPDT")->Value = pdt;
        DLF_QrWrt->Parameters->ParamByName("pQUAL")->Value = abs(iDY);
 
        if (nx == -1) {
            if (scan != 2)
            { //                    "РЕЖИМ СКАНИРОВАНИЯ НЕ ПОДДЕРЖИВАЕТСЯ!
                ErrFS++;
                tlg = end_msg + 1;
                continue;
            }
 
            if ((LonArr = (int*)malloc(sizeof(int) * ny)) == NULL) {
                ErrMem++;
                tlg = end_msg + 1;
                continue;
            }
 
            if ((LonFst = (int*)malloc(sizeof(int) * ny)) == NULL) {
                tlg = end_msg + 1;
                ErrMem++;
                free(LonArr);
                continue;
            }
 
            if (GDS_get_lon(gds, LonArr, LonFst) < 0) {
                tlg = end_msg + 1;
                ErrFS++;
                free(LonArr);
                free(LonFst);
                continue;
            }
 
            if ((array = (float*)malloc(sizeof(float) * nxny)) == NULL) {
                D_L_F_Memo->Lines->Add("Data_Load - memory problems");
                ErrMem++;
                tlg = end_msg + 1;
                free(LonArr);
                free(LonFst);
                continue;
            }
 
            temp = int_power(10.0, -PDS_DecimalScale(pds));
 
            BDS_unpack(array, bds, BMS_bitmap(bms), BDS_NumBits(bds), nxny,
                temp * BDS_RefValue(bds),
                temp * int_power(2.0, BDS_BinScale(bds)));
 
            if (array[1] == NULL && array[31] == NULL) {
                tlg = end_msg + 1;
                BadData++;
                free(LonArr);
                free(LonFst);
                free(array);
                continue;
            }
 
            int Poz, riad, mestoU, mestoN;
            double LonU1, LonU2;
 
            iDX = abs(iDY); //  = GDS_LatLon_dy(gds)
 
            riad = (iMinLat - iLat1) / iDY; //  iMinLat <= iLat1 ? 0 :
 
            iLat = iLat1 + iDY * riad; //   if(iLat < iMinLat) iLat += iDY;
 
            mestoN = (iMinLon - iLon1) / iDX; //   iMinLon <= iLon1 ? 0 :
 
            iLon = iLon1 + iDX * mestoN;
 
            double DX;
 
            iLTN = iLat;
            iLNN = iLon;
 
            while (iLat <= iLat2 && iLat <= iMaxLat + iDX / 2) {
                DX = double(iLon2 - iLon1) / LonArr[riad];
 
                mestoU = iMinLon <= iLon1 ? 0 : (iMinLon - iLon1) / DX;
 
                iLon = iLNN;
 
                LonU1 = iLon1 + DX * mestoU;
                LonU2 = LonU1 + DX;
 
                Poz = LonFst[riad] + mestoU;
 
                DLF_QrWrt->Parameters->ParamByName("pLAT")->Value = iLat;
                DLF_QrWrt->Prepared = true;
 
                while (iLon <= iLon2 && iLon <= iMaxLon) {
                    DLF_QrWrt->Parameters->ParamByName("pLON")->Value = iLon;
 
                    Result = LineInterp2D(
                        LonU1, array[Poz], LonU2, array[Poz + 1], iLon);
                    if (iDX == 2500 && IntPlt) {
                        ArrX.push_back(Result);
                        ArrX.push_back(0.0);
                    }
                    DLF_QrWrt->Parameters->ParamByName("pZNCH")->Value = Result;
                    DLF_QrWrt->ExecSQL();
 
                    iLon += iDX;
 
                    if (iLon > LonU2) {
                        LonU1 = LonU2;
                        LonU2 += DX;
                        Poz++;
                    }
                }
 
                if (iDX == 2500 && IntPlt) {
                    ARRN.push_back(ArrX);
                    ArrX.clear();
                }
 
                riad++;
                iLat += iDY;
            }
            free(LonArr);
            free(LonFst);
            NumSLL++;
 
        } else {
            int Poz, riad, mesto;
            bool Skip = false;
 
            if (scan == 2)
                riad = (iMinLat - iLat1) / iDY; //  iMinLat <= iLat1 ? 0 :
            else if (scan == 0) {
                iDY = -iDY;
                riad = (iMaxLat - iLat1) / iDY; //  iLat1 <= iMaxLat ? 0 :
 
            } else {
                ErrFS++;
                tlg = end_msg + 1;
                continue;
            }
 
            if ((array = (float*)malloc(sizeof(float) * nxny)) == NULL) {
                D_L_F_Memo->Lines->Add("Data_Load - memory problems");
                ErrMem++;
                tlg = end_msg + 1;
                continue;
            }
 
            temp = int_power(10.0, -PDS_DecimalScale(pds));
 
            BDS_unpack(array, bds, BMS_bitmap(bms), BDS_NumBits(bds), nxny,
                temp * BDS_RefValue(bds),
                temp * int_power(2.0, BDS_BinScale(bds)));
 
            if (array[1] == NULL && array[31] == NULL) {
                tlg = end_msg + 1;
                BadData++;
                free(array);
                continue;
            }
 
            iDX = GDS_LatLon_dx(gds);
 
            iLat = iLat1 + iDY * riad;
            iLTN = iLat;
 
            mesto = iMinLon <= iLon1 ? 0 : (iMinLon - iLon1) / iDX;
 
            iLon = iLon1 + iDX * mesto;
            iLNN = iLon;
 
            while ((scan == 2 && iLat <= iLat2 && iLat <= iMaxLat + iDX / 2) ||
                   (scan == 0 && iLat >= iLat2 && iLat >= iMinLat - iDX / 2))
            {
                Poz = riad * nx + mesto;
                iLon = iLNN;
                DLF_QrWrt->Parameters->ParamByName("pLAT")->Value = iLat;
                DLF_QrWrt->Prepared = true;
 
                while (iLon <= iLon2 && iLon <= iMaxLon) {
                    DLF_QrWrt->Parameters->ParamByName("pLON")->Value = iLon;
 
                    //Result = array[Poz];
                    if (iDX == 2500 && IntPlt) {
                        ArrX.push_back(array[Poz]); //  Result
                        ArrX.push_back(0.0);
                    }
 
                    DLF_QrWrt->Parameters->ParamByName("pZNCH")->Value =
                        array[Poz]; //  Result
                    DLF_QrWrt->ExecSQL();
 
                    iLon += iDX;
                    Poz++;
                }
 
                if (iDX == 2500 && IntPlt) {
                    ARRN.push_back(ArrX);
                    ArrX.clear();
                }
                riad++;
                iLat += iDY;
            }
            NumLL++;
        }
 
        free(array);
 
        if (iDX == 2500 && IntPlt) {
            for (int n = ARRN.size() - 1; n >= 0; n--) {
                iLat = iLTN + iDY * n;
                DLF_QrWrt->Parameters->ParamByName("pLAT")->Value = iLat;
                DLF_QrWrt->Prepared = true;
                for (int i = 1; i < ARRN[n].size() - 2; i += 2) {
                    // iLon = iLNN + 1250 * i;
                    ARRN[n][i] = (ARRN[n][i - 1] + ARRN[n][i + 1]) * 0.5;
                    DLF_QrWrt->Parameters->ParamByName("pLON")->Value =
                        iLNN + 1250 * i; //iLon;
                    DLF_QrWrt->Parameters->ParamByName("pZNCH")->Value =
                        ARRN[n][i];
                    DLF_QrWrt->ExecSQL();
                }
            }
            for (int n = ARRN.size() - 1; n > 0; n--) {
                iLat = iLTN + round(iDY * (n - 0.5));
                DLF_QrWrt->Parameters->ParamByName("pLAT")->Value = iLat;
                DLF_QrWrt->Prepared = true;
                for (int i = ARRN[n].size() - 2; i >= 0; i--) {
                    // iLon = iLNN + 1250 * i;
                    Result = (ARRN[n][i] + ARRN[n - 1][i]) * 0.5;
                    DLF_QrWrt->Parameters->ParamByName("pLON")->Value = iLon =
                        iLNN + 1250 * i; //iLon;
                    DLF_QrWrt->Parameters->ParamByName("pZNCH")->Value = Result;
                    DLF_QrWrt->ExecSQL();
                }
            }
        }
 
        String Src_S = source > 9 ? IntToStr(source) : " " + IntToStr(source);
 
        D_L_F_Memo->Lines->Add(
            Src_S + " : " + FormatDateTime("dd.mm.yyyy hh.nn", ProgDT) + " : " +
            k5toa(pds) + IntToStr(PDS_KPDS7(pds)) + " : " + IntToStr(iDX));
 
        //      D_L_F_Memo->Lines->Add("Загружено: " + k5toa(pds) +
        //                             IntToStr(PDS_KPDS7(pds)) + " : " +
        //                             FormatDateTime("dd.mm.yyyy hh.nn", ProgDT) + " : " +
        //                             IntToStr(PlNum) + " значений");
        tlg += s_grib;
 
        if (iDX == 2500 && IntPlt) {
            while (!ARRN.empty()) {
                ARRN.pop_back();
            }
            ARRN.clear();
            ArrX.clear();
        }
    }
 
    if (!dir)
        DLF_ProgBar->Position = long(endtlg);
    return (LUDT);