If addProc('myprocedure' wait "Myprocedure was already added" window timeout 3 Endif ... Function addProc Lparameters lcProcedure Local llReturn If Not Upper(lcProcedure) $ Upper(Set("Procedure")) Set Procedure To (lcProcedure) Additive Else llReturn=.T. Endif Return llReturn