列举系统进程时，内存疯涨！ ( 积分: 100 )

在一个timer触发的以下过程，导致内存一直在涨，大家帮我看看出了什么问题？
procedure TForm1.GetProcesList;
var
Snap: THandle;
Proc: TPROCESSENTRY32;//uses TLHELP32
begin
ListView1.Items.BeginUpdate;
ListView1.Items.Clear;
ListView1.Items.EndUpdate;
Snap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0);
Proc.dwSize := SizeOf(TProcessEntry32);
Process32First(Snap, Proc);
Repeat
With ListView1.Items.Add Do
Begin
Caption := proc.szExeFile;
End;
Until
(not Process32Next(Snap, Proc));
end;

说错了，是PF使用率一直在涨！

http://www.delphibbs.com/delphibbs/dispq.asp?lid=120115
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3268527

请注意Snap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0);是Create的,
完成后是需要CloseHandle(Snap);的

thanks!