function GetActiveOleObject(const ClassName: String): Variant;
Смотрите раздел справки Использование объектов COM.