procedure TForm1.Button1Click(Sender: TObject);
var
 pe: TProcessEntry32;
 ph, snap:THandle;//дескрипторы процесса и снимка
 mh: hmodule;//дескриптор модуля
 procs: array[0..$fff] of DWORD;//массив для хранения дескрипторов процессов
 count, cm: Cardinal;//количество процессов
 i: Integer;
 ModName: array[0..max_path] of char;//имя модуля
 LastIndex: Integer; // индекс последнего добавленного Proc
begin
 ListView1.Clear;

 if not EnumProcesses(@procs, sizeof(procs), count) then
 begin
   exit;
 end;
 for i := 0 to count div 4 - 1 do
 begin
 //  Application.ProcessMessages;
   ph := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
     false, procs[i]);
   if ph > 0 then
   begin
     EnumProcessModules(ph, @mh, 4, cm);
     GetModuleFileNameEx(ph, mh, ModName, sizeof(ModName));

     with ListView1.Items.Add do
     begin
       Caption := (string(ModName));
       SubItems.Add(IntToStr(procs[i]));
     end;
     CloseHandle(ph);
   end
   else
     with ListView1.Items.Add do
     begin
       Caption := 'failed: ' + (string(ModName));
       SubItems.Add(IntToStr(procs[i]));
       SubItems.Add(IntToStr(GetLastError) + ':' + GetSystemErrorMessage(GetLastError));
     end;
 end;
end;