新手问题
请问以下的vb6代码，用delphi该怎么写俄？
对那个AddressOf 晕晕的

ret = RCA_submitDurableImageOrderBstr(iod, xmlImageOrder, AddressOf orderStatusCallback)

Public Function orderStatusCallback(ByVal orderStatus As String) As Long
CurrentOrderStatus = orderStatus
MainForm.LargeText.Text = orderStatus
sFlag = "1 "
End Function


[解决办法]
RCA_submitDurableImageOrderBstr(iod, xmlImageOrder,@orderStatusCallback);


Function orderStatusCallback(orderStatus:String) :Integer;
begin
CurrentOrderStatus:= orderStatus;
MainForm.LargeText.Text:= orderStatus;
sFlag:= '1 ';
end;