Операция 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 <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;
 
        //  Initialize RFDevice
        RFDevice::Initialize();
 
metka: 
        // Поиск сканеров
        //cout << "Searching..." << endl;
        nRF625 = ld.Search(625, 3);
 
        if (nRF625 < 1) cout << "No found scanners" << endl;
        else
        {
                RFDevice::RF625Device scanner( ld[0] );
                if (scanner.Connect() == false )
                {
                        cout << "Failed to Connect(TCP) to scanner" << endl;
                }
                else // иначе, если соединение установлено
                {
                        if ( scanner.Disconnect() == false )
                        {
                                cout << "Failed to Disconnect(TCP) scanner" << endl;
                        }
                }
        }
        
        goto metka;
        //    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;
        int counter = 0;
metka:
        //  Create RFLanDetector object
        RFDevice::RFLanDetector ld;
//metka:
        //  Initialize RFDevice
        RFDevice::Initialize();
//metka:
        // Ïîèñê ñêàíåðîâ
        //cout << "Searching..." << endl;
        nRF625 = ld.Search(625, 3);
 
        if (nRF625 < 1) cout << "No found scanners" << endl;
        else
        {
                RFDevice::RF625Device scanner( ld[0] );
                if (scanner.Connect() == false )
                {
                        cout << "Failed to Connect(TCP) to scanner" << endl;
                }
                else // èíà÷å, åñëè ñîåäèíåíèå óñòàíîâëåíî
                {
                        if ( scanner.Disconnect() == false )
                        {
                                cout << "Failed to Disconnect(TCP) scanner" << endl;
                        }
                }
        }
        counter = counter + 1;
        cout << counter << " ";
//goto metka;
 
        //    Cleanup RFDevice
        RFDevice::Cleanup();
goto metka;
        return 0;
}

#include <vcl.h>
#include <iostream>
#include <RF625Device.h>
#include <RFLanDetector.h>
#pragma comment (lib,"RFDevice.lib")
 
using namespace std;
void MyFunc(void);
 
int main (int argc, char *argv[])
{
  metka:
        MyFunc();
  goto metka;
        return 0;
}
 
//------------------------------------------------------------------------------
void MyFunc (void)
{
        int nRF625;
        //  Create RFLanDetector object
        RFDevice::RFLanDetector ld;
 
        //  Initialize RFDevice
        RFDevice::Initialize();
 
        // Ïîèñê ñêàíåðîâ
        //cout << "Searching..." << endl;
        nRF625 = ld.Search(625, 3);
 
        if (nRF625 < 1) cout << "No found scanners" << endl;
        else
        {
                RFDevice::RF625Device scanner( ld[0] );
                if (scanner.Connect() == false )
                {
                        cout << "Failed to Connect(TCP) to scanner" << endl;
                }
                else // èíà÷å, åñëè ñîåäèíåíèå óñòàíîâëåíî
                {
                        if ( scanner.Disconnect() == false )
                        {
                                cout << "Failed to Disconnect(TCP) scanner" << endl;
                        }
                }
        }
 
        //    Cleanup RFDevice
        RFDevice::Cleanup();
}

RFDevice::RF625Device *p = new RFDevice::RF625Device(ld[i]);

#include <vcl.h>
#include <iostream>
#include <RF625Device.h>
#include <RFLanDetector.h>
#pragma comment (lib,"RFDevice.lib")
 
using namespace std;
void MyFunc(void);
int main (int argc, char *argv[])
{
        MyFunc();
        return 0;
}
 
//------------------------------------------------------------------------------
void MyFunc (void)
{
        int nRF625;
        unsigned char lpBuffer[4000];
        
        //  Create RFLanDetector object
        RFDevice::RFLanDetector ld;
 
        //  Initialize RFDevice
        RFDevice::Initialize();
 
        //  Поиск сканеров RF625 в сети в течение 2 секунд
        nRF625 = ld.Search(625, 2);
 
        if (nRF625 < 1) cout << "No found scanners" << endl;
        else
        {
                //  Коннектимся к сканеру
                RFDevice::RF625Device scanner( ld[0] );
                if (scanner.Connect() == false) cout << "Failed to Connect to scanner" << endl;
                else
                {
                        cout << "Connect OK (TCP)" << endl;
                        //  Получаем серийный номер
                        cout << scanner.GetSerialNumber() << endl;
 
                        //  Получаем результат сканирования поверхности (координаты точек + служебные данные)
                        scanner.GetResult(&lpBuffer);
 
                        //  Disconnect
                        if (scanner.Disconnect() == false) cout << "Failed to Disconnect scanner" << endl;
                        else
                        {
                                cout << "Disconnect OK" << endl;
                        }
                }
        }
 
        //   Cleanup RFDevice
        RFDevice::Cleanup();
        Sleep(2000);
}