这段VBA代码转为delphi怎么写？

Question

Private Sub DoEnterKey()
    If TypeName(Selection) = "Range" Then
        If ActiveCell.Column < 256 Then
            If ActiveCell.Column = 1 Then
                ActiveCell.Offset(0, 4).Select
            Else
                If ActiveCell.Column = 14 Then
                    ActiveCell.Offset(1, -9).Select
                Else
                    ActiveCell.Offset(0, 1).Select
                End If
            End If
        End If
    End If
End Sub

Answer 1

看起来像是用什么表格控件来的。