如何解决delphi编写的遍历进程程序一直遍历进程造成内存过高

我已经知道一个程序的进程名和窗体名 比如“百度”- 窗体名设“百度”进程名设“IEXPLORE.EXE” 我是想我的程序在“百度”这个窗体和“IEXPLORE.EXE”这个进程出现时在运行。这个窗体和进程关闭时我的程序也关闭。现在问题是我用delphi遍历进程无论设定的进程“IEXPLORE.EXE”和窗体“百度”出没出现都一直在遍历造成内存过高甚至死机。请问该怎么解决。