DWORD ThreadID;
HANDLE hThread = 0;
hThread = CreateThread(NULL, 0, AsyncPing, NULL, 0, &ThreadID);

if(hThread == 0)
    MessageBoxW(Application->Handle, L"Error in the fuction AsyncProcess", 0, MB_ICONERROR);

DWORD __stdcall AsyncPing(void *p)
{
    RegPerson* r = new RegPerson();
    try
    {
        while(1)
        {
            if(r->Ping())
                break;
            Sleep(10 * 1000);
        }
    }
    __finally
    {
        delete r;
    }

    bExec = false;
    OnlineOfflineItem->ImageIndex = 1;    // Online
    return 1;
}