菜鸟初学的送分题,给点支持

Question

这个东西已经困扰了我很多天了，但其实只是一段很简单的代码，哪位大侠帮我把这段代码翻译成delphi吧！
Dim xmldoc As MSXML2.DOMDocument
Dim root As MSXML2.IXMLDOMElement
Dim node As IXMLDOMNode
Dim child As IXMLDOMNodePrivate Sub Command1_Click()  
  Dim xmlfile As String
  xmlfile = App.Path & "\test.xml"  
  Set xmldoc = New MSXML2.DOMDocument
  xmldoc.Load (xmlfile)
  Call instogrid(xmldoc.documentElement)
End SubPublic Sub instogrid(node As IXMLDOMNode, Optional tabLevel As Integer = 0)
    Dim childNode As IXMLDOMNode
    Dim NodeKey As String
        If node.hasChildNodes Then
            For Each childNode In node.childNodes
                Call instogrid(childNode, tabLevel + 1)
            Next
        Else           
           MSHFlexGrid1.Text = String(tabLevel + 1, Chr(9)) & node.Text
        End If
End Sub