关于delphi调用ocx发送短信的问题

我要调用一个ocx文件来发送短信。
我把这个控件注册了，也添加到delphi的activex里面了，可是用的时候提示不支持此接口。
我这样算是注册过接口了吧
type
ISmsControl = interface
['{BACF160B-0271-42ED-A041-E938C053644A}']
end;一运行ocx里面的函数就出错了，，，
我是这样引用的
function SendMsg(const PhoneNo: WideString; const Msg: WideString): Smallint;stdcall;external 'JindiSMSControl.ocx';