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