Pascal Scripting: GetActiveOleObject

Prototype

function GetActiveOleObject(const ClassName: String): IDispatch;