procedure TForm1.Process32List;

var

  module32:TPROCESSENTRY32;

  H,hh:Thandle;

  Next:Bool;

  cb: Integer;

  pmc: PPROCESS_MEMORY_COUNTERS;

begin

  Module32.dwSize:=SizeOf(TPROCESSENTRY32);

  H:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);

  if Process32First(h,Module32) then

   begin

     Memo1.Lines.Add(Module32.szExeFile);

    Repeat

     Next:=Process32Next(H,Module32);

     if Next  Then begin

      hh:=OpenProcess(PROCESS_QUERY_INFORMATION,true,Module32.th32ProcessID);

      cb := SizeOf(_PROCESS_MEMORY_COUNTERS);

      GetMem(pmc, cb);

      pmc^.cb := cb;

      if GetProcessMemoryInfo(hh, pmc, cb) then

      Memo1.Lines.Add(StrPas(Module32.szExeFile)+' '+FormatFloat('### ### ###',Pmc.WorkingSetSize div 1024)+' килобайт');

     FreeMem(pmc);

     end;

    Until Not Next;

   end;

   CloseHandle(h);

end;