Вывод списка и завершение процессов

void __fastcall TForm2::Button2Click(TObject *Sender)
{
   //Кнопка построить процессы  (вариант nick42)
   List->Clear();
   ListBox1->Items->Clear();
   UINT iStops[2] = { 90, 160 };  AnsiString G ;
    SendMessage( ListBox1->Handle,LB_SETTABSTOPS,2,(long)iStops );
    HANDLE snap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    if (snap == INVALID_HANDLE_VALUE) return;
    PROCESSENTRY32 pe = {0};
    pe.dwSize = sizeof(pe);
    if (!Process32First(snap, &pe)) { CloseHandle(snap); return; }
    do { if (pe.th32ProcessID != 0)  {
      if(pe.pcPriClassBase <5L) G = "низкий";
      if(pe.pcPriClassBase >4L) G = "ниже среднего";
      if(pe.pcPriClassBase >6L) G = "средний";
      if(pe.pcPriClassBase >8L) G = "выше среднего";
      if(pe.pcPriClassBase>12L) G = "высокий";
      if(pe.pcPriClassBase>23L) G = "реального времени";
      ListBox1->Items->Add((AnsiString)pe.szExeFile+    "("+G+")");
      List->Add((HWND)pe.th32ProcessID);
      }
    } while  (Process32Next(snap, &pe));
    CloseHandle(snap);
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button3Click(TObject *Sender)
{
//Кнопка завершения процесса
 
DWORD  PID;
GetWindowThreadProcessId((HWND)List->Items[ListBox1->ItemIndex], &PID);
 
DWORD ExitCode;
HANDLE hp;
bool ret = true;
 
if(PID)
  {
    hp = OpenProcess(PROCESS_ALL_ACCESS, true, PID);
    if (hp)
        {
        GetExitCodeProcess(hp, &ExitCode);
        ret = TerminateProcess(hp, ExitCode);
        CloseHandle(hp);
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    try
    {
        DWORD PID = (DWORD)List->Items[ListBox1->ItemIndex];
 
        DWORD ExitCode;
        HANDLE hp;
        bool ret = true;
 
        if (PID)
        {
            hp = OpenProcess(PROCESS_TERMINATE, FALSE, PID);
            if (hp)
            {
                GetExitCodeProcess(hp, &ExitCode);
                ret = TerminateProcess(hp, ExitCode);
                if (ret)
                {
                    Application->MessageBox("Процесс успешно завершен", "Успех", MB_OK | MB_ICONINFORMATION);
                }
                else
                {
                    ShowMessage(SysErrorMessage(GetLastError()));
                }
                CloseHandle(hp);
            }
        }
 
    }
    catch (int a)
    {
        MessageDlg("Exception - 1", mtError, TMsgDlgButtons() << mbOK, 0);
    }
    Button1->Click();
}

//Вывод пути к файлу процесса
Label4->Caption = "";
DWORD PID = (DWORD)List->Items[ListBox1->ItemIndex];
// DWORD  PID;
// GetWindowThreadProcessId((HWND)List->Items[ListBox1->ItemIndex], &PID);
 
 
 HANDLE    ss(CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, PID));
  if ( ss != INVALID_HANDLE_VALUE )
  {
  MODULEENTRY32 lpme = { sizeof(MODULEENTRY32) };
 
    for ( bool ok(Module32First(ss, &lpme)); ok; ok = Module32Next(ss, &lpme) )
    {
 
       Label4->Caption = lpme.szExePath;
       break;
 
    }
 
    CloseHandle(ss);
  }