给IHTMLDocument2.onreadystatechange赋值

[pclion]

我自定义一个事件处理函数:
procedure docreadystatechange;

doc := coHTMLDocument.Create as IHTMLDocument2;
if doc=nil then begin showmessage('IHTMLDocument2 create error');exit;end;
doc.onreadystatechange := docreadystatechange;这里编译不通过
[Error] upload.pas(122): Incompatible types: 'OleVariant' and 'procedure, untyped pointer or untyped parameter'

[pclion]

up