function GetActiveOleObject(const ClassName: String): Variant;
See the Using COM Automation objects topic.