Для начала, а какого типа у тебя переменная ConObj. Случаем не OleVariant?
Кстати, CreateComObject ожидает CLSID на входе.
Вообще, я бы сказал, что твой код должен выглядеть как то так:
Код:
1 2 3 4 5 | var
scaner : IScaner3;
begin
scaner := CreateComObject(CLASS_Scaner45) as IScaner3;
ShowMessage(scaner.Version);
|
Может вместо IScaner3 надо использовать IStandart, но это ты уже по документации смотри. Я не знаю что за либу ты пытаешься использовать.