delphi 进程过滤

我得到了系统中的所有进程
如何过滤掉系统进程?
procedure Tfmmain.btn2Click(Sender: TObject);var lppe: TProcessEntry32;
    found : boolean;   
    Hand : THandle;   
    P:DWORD;
    s:string;   
begin  
  lstboxs.Items.Clear ;
  Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
  lppe.dwSize := SizeOf(TProcessEntry32);//
  found := Process32First(Hand,lppe);
  while found do
  begin  
    s := StrPas(lppe.szExeFile);   
    if lppe.th32ProcessID>0 then
      p := lppe.th32ProcessID   
    else  
      p := 0;   
    lstboxs.Items.AddObject(s,pointer(p));//列出所有进程。
    found := Process32Next(Hand,lppe);
  end;end;