把宏转成在Delphi中实现(50分)

Sub Macro4()'
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub
那位高人帮忙翻译成Delphi中能执行的语句
我的调用Excel的语句:
ExcelApplication1.Connect;
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
Temp_Worksheet:=ExcelWorkbook1.
WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0) as _WorkSheet;
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);

好象用EXCELAPPLICATION调用的有许多宏语句不能直接转换过来！
建议你用CreateOleObject('execl.application');的方法 ！！

To:heqian
可否详细点 给出实现代码 分不够可以在加

http://www.djpate.freeserve.co.uk/Automation.htm
差不多都在这,如果不行,就看vba的帮助,在office的目录下

http://www.delphibbs.com/delphibbs/dispq.asp?lid=737517

请参阅id=737517

还是搞不定 那位高人帮忙把实现代码贴一下

var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.WorkBooks.Open( 'C:/Excel/Demo.xls' );
ExcelApp.Columns['A:A'].Select;
ExcelApp.Selection.Sort(Key1:=Range['A1'], Order1:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod :=xlPinYin, DataOption1:=xlSortNormal);