delphi控制AutoCAD

我用VB写了一段代码,望能将其转换成delphi代码,如下:
Sub AddPath()
  dim AcadApp as Object
  dim CurPath As Variant
  dim Path as string
  Path="c:\wmz"
set AcadApp=CreatObject("AutoCAD.Application.16)
     AcadApp.Visible=True
  AxadApp.Application.Preferences.Files=Path & ";" &  AxadApp.Application.Preferences.Files
     AcadApp.Quit
end Sub
注:以上代码是将路径为"c:\wmz"的加到AutoCAD的支持路径的最前面中去