[Nautilus]

Доброго времени суток! Люди добрые, кто сколько сможет- подскажите пожалуйста- при компиляции выдаёт ошибку:
Project raised exception class EOleSysError "Класс не зарегистрирован"
и выбрасывает на процедуру в подключаемом модуле

Код:

procedure OleError(ErrorCode: HResult);
begin
  raise EOleSysError.Create('', ErrorCode, 0);
end;

В вызываемом модуле (импортировал библиотеку) используются следующие модули: uses Variants, Windows, ActiveX, SysUtils {$IFDEF LINUX}, WinUtils {$ENDIF};
Все модули подключены и прописаны в главном модуле, все, кроме последнего WinUtils {$ENDIF}- его не получается добавить.
Как это можно обойти? Спасибо заранее...

[angvelem]

Подключи ComObj.

[Nautilus]

Подключён...
"uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,UniOpcWriteReq_TLB, StdCtrls,OleServer,StdVCL,ComObj,ActiveX;"

[angvelem]

Код:

implementation

{$R *.dfm}

uses
  ActiveX, ComObj;

procedure OleError(ErrorCode: HResult);
begin
  raise EOleSysError.Create('', ErrorCode, 0);
end;

Всё нормально компилится.

[Nautilus]

Я извиняюсь- неправильно выразился - компилируется тоже нормуль, а исполняться не хочет. Данная процедура находится в 3-м "дочернем модуле" (все подключены), а вот исполняться не хочет.
Небезразличный angvelem, может глянешь у себя- вот код опроса контроллера через OPC... Уж простите за наглость...

[YVitaliy]

Хм. Может я и не сильно осведомлен, но комманда "raise" как раз и призвана вызывать ошибку? Или я что-то не понял?