delphi中使用xmlhttp的问题。

Question

我在delphi6 中使用XMLHTTPRequest组件。xmlhttpRequest有个回调事件的一个属性
onreadystatechange 我现在不知道使用这个属性。我直接这样用：
xmlhttppens.onreadystatechange:=DigitalPensStateChang(xmlhttppens);
然后定义DigitalPensStateChang过程
function TForm1.DigitalPensStateChang(xmlhttppens:TXMLHTTP40):IDispatch;
begin
 ShowMessage(IntToStr(xmlhttppens.readyState));
 if xmlhttppens.readyState=4 then
 begin
   ShowMessage('Receviced');
 end;
end;但是这个过程不执行啊。
有用过的大哥解决一下