Операция delete вызывает ошибку Access violation at address

/****************************************************/
/*                                                  */
/*  RF625_tcpip.cpp                                 */
/*                                                  */
/*  RFDevice sample program                         */
/*                                                  */
/*  Demonstrate how to:                             */
/*  - Search RF625 over network                     */
/*  - Connect(TCP) to the number of RF625           */
/*  - Read measurements(TCP) from number of RF625   */
/*  - Disconnect(TCP) the number of RF625           */
/*                                                  */
/****************************************************/
#include <vcl.h>
#include <iostream>
#include <vector>
#include <RF625Device.h>
#include <RFLanDetector.h>
#pragma comment (lib,"RFDevice.lib")
 
using namespace std;
 
#define GETRESULT_ERROR_VALUE ((USHORT)0xffff)
#define MIN(a,b) (a<b ? a : b)
#define MEASURES_TO_DO 5
#define VALUES_TO_PRINT 4
 
int main (int argc, char *argv[])
{
    int nRF625;
    int i, j, k;
    vector<RFDevice::RF625Device *> vRF625;
    //  Buffer for maximal quantity of result points (X,Z * 1280 pts)
    float pPointsBuffer[RFDevice::RF625Device::ProfileValuesCount];
    USHORT nPoints;
 
    //  Initialize RFDevice
    RFDevice::Initialize();
 
    //  Create RFLanDetector object
    RFDevice::RFLanDetector ld;
 
    //  Execute search for device type 625 (RF625) for 3 seconds
    //  RF625 sends UDP information packet each 2 seconds so 3 seconds must be enough to catch all of them
    cout << "Searching..." << endl;
    nRF625 = ld.Search(625, 3);
 
    //  Now nRF625 holds a quantity of detected RF625
    cout << "Found " << nRF625 << " of RF625" << endl;
 
    //  Create list of RF625Device objects for all found devices
    for (i=0; i<nRF625; i++)
    {
        RFDevice::RF625Device *p = new RFDevice::RF625Device(ld[i]);
        if (p)
        {
            vRF625.push_back(p);
        }
        else
        {
            cout << "Failed to construct RF625Device #" << i << endl;
        }
    }
    nRF625 = vRF625.size();
 
    //  Sequentially connect to each RF625
    for (i=0; i<nRF625; i++)
    {
        if (FALSE == vRF625[i]->Connect())
        {
            cout << "Failed to Connect(TCP) to RF625Device #" << i << endl;
        }
        else
        {
            cout << "Connected(TCP) to RF625Device #" << i << endl;
        }
    }
 
    //  Get MEASURES_TO_DO measures from each RF625
    // Здесь была часть программы считывания данных и вывода их на экран.
    // Удалил для краткости. На проблему не влияет.
 
 
    //  Sequentially disconnect each RF625
    for (i=0; i<nRF625; i++)
    {
        if (FALSE == vRF625[i]->Disconnect())
        {
            cout << "Failed to Disconnect(TCP) RF625Device #" << i << endl;
        }
        else
        {
            cout << "Disconnected(TCP) RF625Device #" << i << endl;
        }
    }
 
    //  Release memory
    while (!vRF625.empty())
    {
        delete vRF625.back();   //ВЫЗЫВАЕТ ОШИБКУ И ЗАВИСАНИЕ
        vRF625.pop_back();
    }
 
    //    Cleanup RFDevice
    RFDevice::Cleanup();
 
    return 0;
}

#include <vector>
#include <iostream>
 
class My
{
    int a, b;
public:
    My(int pa, int pb) : a(pa), b(pb)
    {
        std::cout << "Init " << a << " " << b << std::endl;
    }
    ~My()
    {
        std::cout << "Done " << a << " " << b << std::endl;
    }
};
 
int main()
{
    std::vector<My*> vec;
    for(int i = 0; i < 10; i++)
    {
        My *p = new My(i, 5*i);
        vec.push_back(p);
    }
 
    while(!vec.empty())
    {
        delete vec.back();
        vec.pop_back();
    }
 
    return 0;
}

class Base{
public:
    Base(){ cout << "B "; }
    ~Base(){ cout << "B "; }
};
class Derive: Base{
public:
    Derive(){ cout << "D "; }
    ~Derive(){ cout << "~D "; }
};
 
Base *p = new Derive;
delete p;

class Base{
public:
    virtual Base(){ cout << "B "; }
    ~Base(){ cout << "B "; }
};
class Derive: Base{
public:
    Derive(){ cout << "D "; }
    ~Derive(){ cout << "~D "; }
};
 
Base *p = new Derive;
delete p;

vector<RFDevice::RF625Device> vRF625;
 
RFDevice::RF625Device p(ld[i]);
vRF625.push_back(p);
 
 
while (!vRF625.empty())
{
  vRF625.pop_back();
}

        //  Initialize RFDevice
        RFDevice::Initialize();
 
        //  Create RFLanDetector object
        RFDevice::RFLanDetector ld;
 
        // Поиск сканеров
        cout << "Searching..." << endl;
        nRF625 = ld.Search(625, 3);
 
        if (nRF625 < 1) Memo1->Lines->Add("No found scanners");
        else
        {
                RF625Device *scanner = new RFDevice::RF625Device(ld[0]);
                if (!scanner) Memo1->Lines->Add("Failed to construct scanner");
                else
                {
                        if (scanner->Connect() == false )
                        {
                                Memo1->Lines->Add("Failed to Connect(TCP) to scanner");
                        }
                        else // иначе, если соединение установлено
                        {
                                if ( scanner->Disconnect() == false )
                                {
                                        Memo1->Lines->Add("Failed to Disconnect(TCP) scanner");
                                }
                        }
                        delete scanner;
                }
        }
 
        //    Cleanup RFDevice
        RFDevice::Cleanup();

#include <iostream>
#include <RF625Device.h>
#include <RFLanDetector.h>
#pragma comment (lib,"RFDevice.lib")
 
using namespace std;
 
int main (int argc, char *argv[])
{
        int nRF625;
        
        //  Initialize RFDevice
        RFDevice::Initialize();
 
        //  Create RFLanDetector object
        RFDevice::RFLanDetector ld;
 
        // Поиск сканеров
        cout << "Searching..." << endl;
        nRF625 = ld.Search(625, 3);
 
        if (nRF625 < 1) cout << "No found scanners" << endl;
        else
        {
                RF625Device *scanner = new RFDevice::RF625Device(ld[0]);
                if (!scanner) cout << "Failed to construct scanner" << endl;
                else
                {
                        if (scanner->Connect() == false )
                        {
                                cout << "Failed to Connect(TCP) to scanner" << endl;
                        }
                        else // иначе, если соединение установлено
                        {
                                if ( scanner->Disconnect() == false )
                                {
                                        cout << "Failed to Disconnect(TCP) scanner" << endl;
                                }
                        }
                        delete scanner;
                }
        }
 
        //    Cleanup RFDevice
        RFDevice::Cleanup();
 
    return 0;
}

#include <vcl.h>
#include <iostream>
#include <RF625Device.h>
#include <RFLanDetector.h>
#pragma comment (lib,"RFDevice.lib")
 
using namespace std;
int main (int argc, char *argv[])
{
        int nRF625;
 
        //  Create RFLanDetector object
        RFDevice::RFLanDetector ld;
 
metka:
        //  Initialize RFDevice
        RFDevice::Initialize();
 
        // Поиск сканеров
        //cout << "Searching..." << endl;
        nRF625 = ld.Search(625, 3);
 
        if (nRF625 < 1) cout << "No found scanners" << endl;
        else
        {
                RFDevice::RF625Device *scanner = new RFDevice::RF625Device(ld[0]);
                if (!scanner) cout << "Failed to construct scanner" << endl;
                else
                {
                        if (scanner->Connect() == false )
                        {
                                cout << "Failed to Connect(TCP) to scanner" << endl;
                        }
                        else // иначе, если соединение установлено
                        {
                                if ( scanner->Disconnect() == false )
                                {
                                        cout << "Failed to Disconnect(TCP) scanner" << endl;
                                }
                        }
                        delete scanner;
                }
        }
        //    Cleanup RFDevice
        RFDevice::Cleanup();
goto metka;
return 0;
}