procedure TForm1.Button2Click(Sender: TObject);
  var
Nomp,a  : Integer;
SH           : Thandle;
Num, I     : Integer;
PPE         : TProcessEntry32;
Pr_names : array [0..50] of string;
begin
  Num := 0;
  SH := CreateToolHelp32SnapShot(Th32cs_SnapAll, 0);
  PPE.dwSize := sizeof (ProcessEntry32);
  Process32First(SH, PPE);
  Pr_Names [Num] := PPE.szExeFile;
    while Process32Next(SH, PPE) do begin
    Num := Num + 1;
  Pr_Names [Num] := PPE.szExeFile;
  Pr_num  [Num] := PPE.th32ProcessID;
end;
  Listbox2.Clear;
  for I := 0 to Num do Listbox2.Items.Add(Pr_Names[I]);
  CloseHandle(SH)
end;