请问下面这个函数什么地方内存泄漏了？
function ProcedureIsExists(AppName:string):Boolean; //判断一个程序是否已经运行
var
lppe: TProcessEntry32;
ssHandle: THandle;
AppFound,findqq: Boolean;
Wnd: HWND;
begin
Result := False;
ssHandle := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0);
lppe.dwSize := SizeOf(lppe);
AppFound := Process32First(sshandle, lppe);
while AppFound do
begin
//其中lppe.szExefile就是程序名**********************************************
if UpperCase(ExtractFileName(lppe.szExeFile))=UpperCase(AppName) then
begin
Result := True;
Exit;
end;
AppFound := Process32Next(ssHandle,lppe);
end;
end;
