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

TList *List = new TList;
HWND h = Handle;
wchar_t buf[128];
List->Clear();
 ListBox1->Items->Clear();
 do {
    h = GetNextWindow(h, GW_HWNDNEXT);
    GetWindowText(h, buf, 128);
 
    if (buf[0])   {     List->Add(h);
       ListBox1->Items->Add(buf);  }
 
    } while (h != NULL);
 ListBox1->ItemIndex = 0;
 ListBox1->Update();

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);
        }
    }

Memo3->Clear();
 
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) )
    {
 
       Memo3->Lines->Add(lpme.szExePath);
       break;
 
    }
 
    CloseHandle(ss);
  }

ListBox1->Items->Add(ProcEntry.szExeFile);

ListBox1->Items->Add(ProcEntry.th32ProcessID);

...
 if (buf[0])  
 {    
     List->Add(h);//Запоминаем HWND
     ListBox1->Items->Add(buf);  //Добавляем его имя
 }
...

...
DWORD  PID;
GetWindowThreadProcessId((HWND)List->Items[ListBox1->ItemIndex], &PID);
...