Предлагаю такую идею. При открытии попап-меню устанавливаешь какой-нибудь 
Boolean флаг (
Public переменную формы) в 
True, а сразу после вызова процедуры 
PopupMenu - в 
False 
 После окончания операции проверяешь этот флаг. Если он равен 
True, симулируешь падение само..., тьфу, курсора на форме, скажем, в точке с координатами (0,0) 
