[Kroc]

Нормальные герои идут кривым путём
uses ... ComObj,...
...
var
   ExAp : Variant;
begin
 try    
//если не найден, вызывается исключение
   ExAp := GetActiveOleObject('Excel.Application');

    except

 end;
...
Аналогично с Word.

Тему можно закрыть...Спасибо всем.