ocx中增加一事件!不知怎样触发它! (200分)

procedure TYJ2000.phoneSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
var
phoneno: String;
chan: Integer;
begin
phoneno := Socket.ReceiveText;
if phoneno[1] in ['1','2'] then
// set event
begin
chan := Ord(phoneno[1]) - ord('0');
phoneno := Copy(phoneno, 3, Length(phoneno)-2);
//我想在这里触发那事件!
// procedure OnCallIn(chan: Smallint
const phoneno: WideString);

end;
end;


不知怎样才能触发
procedure OnCallIn(chan: Smallint
const phoneno: WideString)
事件!

不是太了解，应当是执行一次把

就是SocketRead触发是同时要触发OnCallIn事件

ocx里面有
FEvents: IActiveFormXEvents;
FEvents.OnCallIn

<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function obj1_onsaveclick(dcs) {
form1.text1.value=dcs;
form1.submit();
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=obj1 EVENT=onsaveclick(dcs)>
<!--
obj1_onsaveclick(dcs)
//-->
</SCRIPT>
<OBJECT name=obj1
classid="clsid:025AD6A1-A673-4655-8371-8672F0D979B0"
codebase="http://sy08/fhdj.cab#version=1,0,226,3"
height=380
width=642></OBJECT>

delphi内部FEvents.onsaveclick(OleVariant(tmpole));

自己搞定!!