перегнать в delphi

[vladislav_m]

как скрипт перегнать в delphi?

Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="ИСТИНА"
    Selection.FormatConditions(1).Font.ColorIndex = 3
    Selection.FormatConditions(1).Interior.ColorIndex = 3
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="ЛОЖЬ"
    Selection.FormatConditions(2).Font.ColorIndex = 10
    Selection.FormatConditions(2).Interior.ColorIndex = 10

заранее, спасибо!)