[angvelem]

Код:

implementation

{$R *.dfm}

uses
  ActiveX, ComObj;

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

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