请教各位大侠，系统快照的怎么释放不掉啊

Question

var
  hp:Thandle;
begin
hp:=CreateToolHelp32SnapShot(TH32CS_SNAPAll,0);
closehandle(hp);
end;
以上写法可以把hp释放掉，但改成这样就不行了var
  hp:Thandle;
  pe:PROCESSENTRY32;
  i:integer
begin
  hp:=CreateToolHelp32SnapShot(TH32CS_SNAPAll,0);
  Process32first(hp,pe);
  for i:=1 to 3 do
    Process32Next(hp,pe) ;
  closehandle(hp);
  hp:=CreateToolHelp32SnapShot(TH32CS_SNAPAll,pe.th32ProcessID);
  closehandle(hp);
end;
导致每次刷新后。都占用内存。谁能帮我啊！