[ganselo]

Можно было обойтись без лишних проверок, а сделать так:

Код:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   try{
     HTTPQuery->Get("http://www.virustotal.com/search.html");
     HANDLE hThread;

      hThread = CreateThread(0, 0, QueryThread, lHash, 0, 0);
      if(hThread == INVALID_HANDLE_VALUE){
         ShowMessage("Can't create thread");
         return;
        }
      CloseHandle(hThread);
     }
    catch(EIdHTTPProtocolException &se){
       switch(se.ErrorCode){
          case 200: //всё ок
            break;
          case 303:
            break;  //редирект
          case 404: //404 not found
            break;
          default:
            break;
         }
      }
    catch(EIdSocketError &se){
       if(se.LastError == 11001)
          MessageBox(0, "Не удалось подключится к удалённому серверу", 0, MB_OK + MB_ICONWARNING);
      }
}