uses TLHelp32;

procedure ListeazaProcese;
var h:dword;
pe:TProcessEntry32;
b:boolean;
i:integer;
begin
h:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
pe.dwSize:= SizeOf(pe);
B:= Process32First(H, pe);
i:=0;
while b do
 begin
  inc(i);
  Form1.Memo1.lines.Add('PID: '+inttostr(pe.th32ProcessID)+' - '+pe.szExeFile);
  B:= Process32Next(H, pe);
 end;
CloseHandle(H);
end;

PID: 0 - [System Process]
PID: 4 - System
PID: 404 - SMSS.EXE
PID: 476 - CSRSS.EXE
PID: 500 - WINLOGON.EXE
PID: 548 - SERVICES.EXE
PID: 560 - LSASS.EXE
PID: 704 - SVCHOST.EXE
....