Фраза IMPLEMENTS в команде DEFINE CLASS определяет интерфейс для COM-объекта некорректно. Более подробно, смотрите командуDEFINE CLASS .