Узнать PID процесса

unsigned long PIDByName(AnsiString AProcessName)
{
  HANDLE pHandle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  PROCESSENTRY32 ProcessEntry;
  unsigned long pid;
  ProcessEntry.dwSize = sizeof(ProcessEntry);
  bool Loop = Process32First(pHandle, &ProcessEntry);
 
  while (Loop)
    {
     if (strcmp(ProcessEntry.szExeFile, AProcessName.c_str()) == 0)
      {
                  pid = ProcessEntry.th32ProcessID;
                  CloseHandle(pHandle);
                  return pid;
      }
      Loop = Process32Next(pHandle, &ProcessEntry);
    }
    return 0;
}
 pid = PIDByName("dvbdream.exe");

     if (strcmp(ProcessEntry.szExeFile, AProcessName.c_str()) == 0)
      {
                  pid = ProcessEntry.th32ProcessID;
                  /* CloseHandle(pHandle);
                  return pid; */
                  // Вместо этого найденный pid пихаем в массив/контейнер и ищем дальше
      }
      Loop = Process32Next(pHandle, &ProcessEntry);

CloseHandle(pHandle);

   int pid;
     for(int i = 0; i <  Form1->redt1->Lines->Count; i++)   //в redt1 около 10 PID
  if (pid = (Form1->redt1->Lines->Strings[i].ToInt()));        //тут я запутался
 ShowMessage(pid);  // а здесь должно выдать 10 ShowMessage

int pid;

int pid;
     for(int i = 0; i <  Form1->redt1->Lines->Count; i++)  
     {
      pid = StrToInt(Form1->redt1->Lines->Strings[i]);       
      ShowMessage(IntToStr(pid));
     }

for(int i = 0; i <  Form1->redt1->Lines->Count; i++) ShowMessage(Form1->redt1->Lines->Strings[i]);