ListView и правильность\оптимизация кода

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "md5wrapper.h"
#include "tinyxml/tinystr.h"
#include "tinyxml/tinyxml.h"
#include "CheckMD5VT.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "IdBaseComponent"
#pragma link "IdComponent"
#pragma link "IdHTTP"
#pragma link "IdTCPClient"
#pragma link "IdTCPConnection"
#pragma resource "*.dfm"
TForm1 *Form1;
TListItem  *ListItem;
AnsiString NameFile;
const unsigned int NUM_INDENTS_PER_SPACE = 2;
const unsigned int TD_COUNT = 4;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
// Здесь происходит обращение к серверу
DWORD WINAPI QueryThread(LPVOID lpParam)
{
   TStringList *lHash = (TStringList *)lpParam;
   TStringList *post = new TStringList;
   TStringStream *response = new TStringStream();
 
   for(int i = 0; i < lHash->Count; i++){
      post->Clear();
      post->Add("chain=" + lHash->Strings[i]);
      try{
         Form1->IdHTTP1->Post("http://www.virustotal.com/search.html", post, response);
        }
      catch(EIdHTTPProtocolException &se){
         switch(se.ErrorCode){
            case 200: //всё ок
            break;
            case 303:
            break;  //редирект
            case 404: //404 not found
            break;
            default:
            break;
           }
        }
      catch(EIdSocketError &se){
//       MessageBox(0, se.Message.t_str(), 0, 0);
         switch(se.LastError){
            case 11001: // Нет инета
            MessageBox(0, "Не удалось подключится к удалённому серверу", 0, MB_OK + MB_ICONWARNING);
            break;
            case 10060: // Истёк таймаут
            MessageBox(0, "Истёк таймаут ожидания запроса к VirusTotal", 0, MB_OK + MB_ICONWARNING);
            break;
            default:
            break;
           }
        }
      Form1->IdHTTP1->Disconnect();
     }
   delete post, response, lHash;
   return 0;
}
// Открытие файлов и расчёт их MD5-------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   md5wrapper md5;
   if (OpenDialog1->Execute()){
      for(int i = 0; i < OpenDialog1->Files->Count; i++){
         NameFile = OpenDialog1->Files->Strings[i];
         std::string hash1 = md5.getHashFromFile(NameFile.c_str()); // create a hash from a string
         ListItem = Form1->ListView1->Items->Add();
         ListItem->Caption = NameFile;
         ListItem->SubItems->Add(String(hash1.c_str()).UpperCase());
        }
     }
}
// По нажатию на кнопку происходит проверка на сервисе VT-------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   TStringList *lMD5 = new TStringList;
   for(int i = 0; i < ListItem->ListView->GetCount(); i++){
      lMD5->Add(ListItem->ListView->Items->Item[i]->SubItems->Strings[0]);// Strings[i]);
     }
 
   try{
      IdHTTP1->Get("http://www.virustotal.com/search.html");
      HANDLE hThread;
      hThread = CreateThread(0, 0, QueryThread, lMD5, 0, 0);
      if(hThread == INVALID_HANDLE_VALUE){
         ShowMessage("Не возможно создать поток");
         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){
      switch(se.LastError){
         case 11001: // Нет инета
         MessageBox(0, "Не удалось подключится к удалённому серверу", 0, MB_OK + MB_ICONWARNING);
         break;
//       case 10060: // Истёк таймаут
//       MessageBox(0, "Истёк таймаут ожидания запроса к VirusTotal", 0, MB_OK + MB_ICONWARNING);
//       break;
        }
     }
}
//---------------------------------------------------------------------------
...
// Здесь происходит парсинг странички, с использованием
// "tinyxml", по вопросу не имеет значения, но если нужно, выложу
...
//---------------------------------------------------------------------------
void __fastcall TForm1::IdHTTP1Redirect(TObject *Sender, UnicodeString &dest, int &NumRedirect,
          bool &Handled, UnicodeString &VMethod)
{
   if(dest == "http://www.virustotal.com/search.html?notfound=1"){ // Когда МД5 ещё НЕ проверялась на VT
      Memo1->Lines->Add("Файл с таким MD5 проверку не проходил");
      return;
     }
   TResult result;
   AnsiString res = IdHTTP1->Get(dest);
   ParseXml(res, result);
 
   int antivirus_count = result.size();
   int true_res = 0;
   int procent;
 
   for(TResult::iterator i = result.begin(); i != result.end(); i++){
      if(i->result != "-"){
         true_res++;
        }
     }
 
   procent = true_res * 100 / antivirus_count; //получили процент
   if(ComboBox1->Text.ToInt() <= procent){
      Memo1->Lines->Add("Файл с таким MD5 детектируется как вирус");
     }
   else{
      Memo1->Lines->Add("Файл с таким MD5 детектируется как чистый");
     }
}
//---------------------------------------------------------------------------