type
  PProcInfo = ^TProcInfo;
  TProcInfo = packed record
    ModulePID: Cardinal;
    ModuleName: string;
    ModulePath: string;
  end;

......

procedure GetListPoc(List: TList<PProcInfo>);
var
  bContinue: BOOL;
  aSnapshotHandle: THandle;
  aProcessEntry32: TProcessEntry32;
  LpModuleInfo: PProcInfo;
begin
  aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  aProcessEntry32.dwSize := SizeOf(aProcessEntry32);
  bContinue := Process32First(aSnapshotHandle, aProcessEntry32);
  while Integer(bContinue) <> 0 do
    begin
    new(LpModuleInfo);
    LpModuleInfo.ModuleName := ExtractFileName(aProcessEntry32.szExeFile);
    LpModuleInfo.ModulePath := ExtractFilePath(aProcessEntry32.szExeFile);
    LpModuleInfo.ModulePID := aProcessEntry32.th32ProcessID;
    List.Add(LpModuleInfo);
    bContinue := Process32Next(aSnapshotHandle, aProcessEntry32);
    end;
  CloseHandle(aSnapshotHandle);
end;