Как узнать ИД процесса?

[Ice_Han]

Имеется

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ListBox1.Clear;
  ListBox2.Clear;
  ListBox3.Clear;
  HandleSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);  //get the list of process
  if HandleSnapShot <> INVALID_HANDLE_VALUE then
  begin
    EntryParentProc.dwSize := SizeOf(EntryParentProc);
    if Process32First(HandleSnapShot, EntryParentProc) then   //Get the first process in the list
    begin
      listbox1.Items.add( Format('%-30s',['Process'])  );
//      with ListView1.Items.add do begin
//      Caption := 'sdf2';
//      ImageIndex := 0;
//      end;
      listbox2.Items.add( Format('%-20s',['Start'])  );
      listbox3.Items.add( Format('%-16s',['Running Time'])  );
      ActualTime:=Now;
      repeat
          h:=OpenProcess(PROCESS_QUERY_INFORMATION,false,EntryParentProc.th32ProcessID);  //open a particular process
          if GetProcessTimes(h, DummyCreateFileTime, DummyExitFileTime, DummyKernelFileTime, DummyUserFileTime) then  //get the timing  info
          begin
            aFileName:=EntryParentProc.szExeFile;
//            bFileName:=ParamStr(0);
//            AssignFile(File1, 'File.txt');
//            {$I-}
//            Append (File1);
//            {$I+}
//            if IOResult <> 0
//              then Rewrite(File1);
//              WriteLn(File1,bFileName);
//              CloseFile(File1);
            CreationTime:=FileTime2DateTime(DummyCreateFileTime); //get the initial time of the process
            Dif :=  ActualTime-CreationTime; //calculate the elapsed time
            ListBox1.Items.Add( Format('%-30s',[aFileName])  );
            listbox2.Items.add( Format('%-20s',[FormatDateTime('DD-MM-YYYY HH:NN:SS',CreationTime)])  );
            listbox3.Items.add( Format('%-16s',[FormatDateTime('HH:NN:SS',Dif)])  );
          end;
          CloseHandle(h);
      until not Process32Next(HandleSnapShot, EntryParentProc);
    end;
    CloseHandle(HandleSnapShot);
  end;
end;

Как добавить ИД процесса, к примеру в Listbox3?

[Stilet]

listbox3.Items.add(inttostr(EntryParentProc.th32ProcessID) );

[Ice_Han]

Огромное СПАСИБО!