function CreateComObject(const ClassID: TGUID): IUnknown;
Смотрите раздел справки Использование объектов COM.