新手有关问题

新手问题
请问以下的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;