if not IsOLEObjectInstalled('Excel.Application') then

  ShowMessage('Класс не зарегистрирован')

 else

  ShowMessage('Класс найден');



function IsOLEObjectInstalled(Name: String): boolean;

var

 ClassID: TCLSID;

 Rez : HRESULT;

begin

 // Ищем CLSID OLE-объекта

 Rez := CLSIDFromProgID(PWideChar(WideString(Name)), ClassID);

 if Rez = S_OK then // Объект найден

  Result := true

 else

  Result := false;

end;