请教如何将PHP代码转换成delphi代码

PB调用示例
/***********变量定义***********/
oleobject loo_objOle //定义OLE对像
int li_rtn //连接返回值
string ls_rtn //返回字符串
String ls_hosinfo[7], ls_peopleinfo[8] //参数数组
/***********调用代码***********///参合人员查询
Try
//利用OLE连接COM对像
loo_objOle=create OLEObject //创建OLE对像
li_rtn = loo_objOle.connecttonewobject("hyjk") //成功返回：0
if li_rtn <> 0 then
messagebox("连接错误",string(li_rtn)) //未注册接口("hyjk")：-2　，未找到文件"C:\合医接口\hyjk.dll"： -3　。
return
end if//创建实例
ls_rtn = loo_objOle.createinstace()
if ls_rtn <> "1" then
messagebox("创建错误",ls_rtn) //请检查配置环境
return
end if

ls_rtn = loo_objOle.checkpeople(ls_hosinfo[ ], ls_peopleinfo[ ]) //接口API函数(参考文档和测试程序)

messagebox("返回值",ls_rtn) //程序处理
catch (SoapException e1)
messagebox("Fail","Can't invoke service 'checkpeople'~n~r"+e1.getmessage())
catch (PBXRuntimeError e2)
messagebox("Fail","There is a runtime error when invoking Web service~n~r"+e2.getmessage())
catch (RuntimeError e3)
messagebox("Fail","There is an unknown error when invoking Web service~n~r"+e3.getmessage())
end try//销毁实例
loo_objOle.destroyinstace()
//销毁对像
destroy loo_objOle
问题:请把上面的代码转换成delphi代码,谢谢 
Delphi Code ?????????????