以下这段Word VBA代码如何转换到Dephi代码进行调用，该如何改？请达人指点一下

Question

With Selection.Font
        .NameFarEast = "ＭＳ ゴシック"
        .NameAscii = "ＭＳ ゴシック"
        .NameOther = "ＭＳ ゴシック"
        .Name = "ＭＳ ゴシック"
        .Size = 9
        .Bold = False
        .Italic = False
        .Underline = wdUnderlineNone
        .UnderlineColor = wdColorAutomatic
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = False
        .SmallCaps = False
        .AllCaps = False
        .Color = wdColorAutomatic
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 1
        .Animation = wdAnimationNone
        .DisableCharacterSpaceGrid = False
        .EmphasisMark = wdEmphasisMarkNone
    End With

Answer 1

With Selection.Font do
begin
        NameFarEast = "ＭＳ ゴシック"
        NameAscii = "ＭＳ ゴシック"
        NameOther = "ＭＳ ゴシック"
        Name = "ＭＳ ゴシック"
        Size = 9
        Bold = False
        Italic = False
        Underline = wdUnderlineNone
        UnderlineColor = wdColorAutomatic
        StrikeThrough = False
        DoubleStrikeThrough = False
        Outline = False
        Emboss = False
        Shadow = False
        Hidden = False
        SmallCaps = False
        AllCaps = False
        Color = wdColorAutomatic
        Engrave = False
        Superscript = False
        Subscript = False
        Spacing = 0
        Scaling = 100
        Position = 0
        Kerning = 1
        Animation = wdAnimationNone
        DisableCharacterSpaceGrid = False
        EmphasisMark = wdEmphasisMarkNone
    End

Answer 2

应该使用单引号’，在Delphi中字符串不是使用”的。