delphi7关于一个程序只能托盘一次的代码实现

是这样的，我做了一个托盘程序，可以运行也可以托盘。但是问题是我多次运行托盘程序的话，系统就会多次托盘，意思就是这个托盘程序就会运行多次。我想有没有一句判断代码，判断这个程序有没有托盘，或者在右下角有没有存在这个系统的托盘图标了，又的话就不再运行了，没有的话就运行。这句代码又么？？？？？？