* *** in the thisformset.email LPara ; CallingObjPointer do case case Upper(CallingObjPointer.Caption) = "Button1" && what ever caption you've assigned * *** button 1 was pressed - do your stuff case Upper(CallingObjPointer.Caption) = "Button2" && what ever caption you've assigned * *** button 2 was pressed - do your stuff endcasehope this helps