请大家帮小弟我把vb的代码转换成delphi的

请大家帮我把vb的代码转换成delphi的
我实在是没有办法了，请大家帮我把vb的代码转换成delphi的，谢谢了，我等着急用
    Dim       oWordApp      
    Dim       oDoc      
    Dim       oTable      
    Dim       oLine      
    Dim       oCell      
    Dim       oShape,oGraphChart      
    On       error       resume       next      
    Set       oWordApp       =       CreateObject( "Word.Application ")      
    Set       oDoc       =       oWordApp.Documents.Add      
    oWordApp.Visible       =       true      
       
    Const       xlArea       =       1      
                    Const       xlBar       =       2      
                    Const       xlColumn       =       3      
                    'Const       xlLine       =       4      
                    Const       xlPie       =       5      
                    Const       xlRadar       =       -4151      
                    Const       xlXYScatter       =       -4169      
                    Const       xlCombination       =       -4111      
                    Const       xl3DArea       =       -4098      
                    Const       xl3DBar       =       -4099      
                    Const       xl3DColumn       =       -4100      
                    Const       xl3DLine       =       -4101      
                    Const       xl3DPie       =       -4102      
                    Const       xl3DSurface       =       -4103      
                    Const       xlDoughnut       =       -4120