Таймер. Как правило завершить работу с условиями

[Зод]

Есть на форме таймер, 30 его переодичность.
В обработчике несколько условий.
Проверяет запущена ли делфи. Если да то выводит showmessage если нет то ничего. И такое же условие но на блокнот. Все работает. Но когда запускаешь эту программу и не запускаешь ни делфи ни блокнот хотя бы 30 минут эта программа требует памяти много. Как я понимаю я не высвобождаю память в коде и требую все больше и больше. Как этого избежать?
функция на проверку процессов:

 function IsRunning(sName: string): boolean;
var
  han: THandle;
  ProcStruct: PROCESSENTRY32;
  sID: string;
begin
  Result := false;
  han := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if han = 0 then
    exit;
  ProcStruct.dwSize := sizeof(PROCESSENTRY32);
  if Process32First(han, ProcStruct) then
  begin
  repeat
  sID := ExtractFileName(ProcStruct.szExeFile);
  if uppercase(copy(sId, 1, length(sName))) = uppercase(sName) then
  begin
  Result := true;
  Break;
  end;
  until not Process32Next(han, ProcStruct);
  end;
end;

это единственное что может не высвобождать память. Остальное код это if then else.

[_-Re@l-_]

Ну дак надо ж хэндл закрыть...

 function IsRunning(sName: string): boolean;
var
  han: THandle;
  ProcStruct: PROCESSENTRY32;
  sID: string;
begin
  Result := false;
  han := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if han = 0 then
    exit;
  ProcStruct.dwSize := sizeof(PROCESSENTRY32);
  if Process32First(han, ProcStruct) then
  begin
  repeat
  sID := ExtractFileName(ProcStruct.szExeFile);
  if uppercase(copy(sId, 1, length(sName))) = uppercase(sName) then
  begin
  Result := true;
  Break;
  end;
  until not Process32Next(han, ProcStruct);
  end;
  CloseHandle(han);
end;

Вот тут ещё посмотрите