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

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

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