OLE调用excel，函数TextToColumns到delphi中该如何写呀？(100分)

我用OLE建立的一个EXCEL的连接，想对一列进行分列操作，录制了一个宏内容是：Selection.TextToColumns Destination:=Range("A1&quot, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 2), TrailingMinusNumbers:=True
可是到了delphi中该如何写呀？我都试了两天了，各位高手帮帮忙呀。。。。

ExcelApp.Selection.TextToColumns(ExcelApp.ActiveSheet.Range['A1','A1'],xlDelimited,xlDoubleQuote,True,True,False,False,False,False,emptyparam,true,emptyparam,emptyparam);

谢谢。。。

我已经试过了，程序可以通过也没有报错，不过EXCEL中的数据没有出现像执行宏那样的效果呀，好像没有处理？？？还有什么办法吗？