Hier mal ein VBA-Code von mir, mit dem ich sortiere. Den kannst du vllt. auch nach Delphi übersetzen:
Code:
Public Sub SortObjekts_ID()
Dim w As Worksheet, ws As Worksheet
Application.ScreenUpdating = False
Set w = ThisWorkbook.Worksheets(Konfig.Sheetname_Objekte)
w.Sort.SortFields.Clear
w.Sort.SortFields.Add Key:=Range("A2:A" & w.UsedRange.Rows.Count), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
w.Sort.SetRange Range("A1:C" & w.UsedRange.Rows.Count)
w.Sort.Header = xlYes
w.Sort.MatchCase = False
w.Sort.Orientation = xlTopToBottom
w.Sort.SortMethod = xlPinYin
w.Sort.Apply
Application.ScreenUpdating = True
End Sub