A very simple way to check if an item is selected is to check Assigned(dbPlanner2.Items.Selected). If this condition resolves to false you should exit the procedure....
The pack is quite old. That's the problem. You need to get a version that supports XE8. I expect that you can obtain that from the vendor's website....
Simply replace 'AdvOfficeStatusBar1.Panels[0].Text' with AdvOfficeStatusBar1.Panels[0].Text The former is a string literal, the latter is the expression that yields the status bar text....