1.uses ActiveX;

2.

procedure HLCJ.Execute;
begin
    CoInitialize(nil);
    //要使用的控件
    CoUninitialize;
end;