Немного неправильно выразил постановку задачи - необходимо была не модальная, а форма отображаемая поверх всех окон. Вобщем решение найдено.
1) При создании ActiveX программно создаем форму
procedure TActiveX.ActiveXCreate(Sender: TObject);
...
FModalForm := TForm.Create(self);
2) Некоторые её свойства:
BorderStyle - bsSizeToolWin
FormStyle - fsStayOnTop
Position - poScreenCenter
3) Устанавливаем
SetWindowLong(FModalForm.Handle, GWL_HWNDPARENT, GetDesktopWindow);
4) В определенных местах вызываем Show и Close
Всё
