Скрипт VB на Delphi

[rodionov_uv]

Помогите пожалуйста переделать скрипт на Delphi, перерыл все, но ничего не нашел.
Это сортировка по цвету ячеек

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Range("B9:N65").Select
    ActiveWorkbook.Worksheets("сводный").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("сводный").Sort.SortFields.Add(Range("B9:B65"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(0, 255 _
        , 0)
    ActiveWorkbook.Worksheets("сводный").Sort.SortFields.Add(Range("B9:B65"), _
        xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(255, 0 _
        , 0)
    With ActiveWorkbook.Worksheets("сводный").Sort
        .SetRange Range("B9:N65")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Диапазон может быть разным. Сортировку по алфавиту делаю так:

exApp2.Range[exApp2.Cells[9, 2], exApp2.Cells[Rows, 25]].Sort
  (Key1 := exApp2.Range[exApp2.Cells[9, 2], exApp2.Cells[Rows, 2]],
  Order1:=1, Header:=2, OrderCustom:=1, MatchCase:=False, Orientation:=1, DataOption1:=0);

[rodionov_uv]

Решил проблему так:

\\получаю индекс цвета ячейки и заношу его в столбец "О"
  for i := 9 to Rows do
  begin
    exApp2.Cells[i, 15].Value := IntToStr(exApp2.Rows[i].Columns['B:N'].Interior.ColorIndex);  
  end;

\\применяю обычную сортировку по убыванию
  exApp2.Range[exApp2.Cells[9, 2], exApp2.Cells[Rows, 15]].Sort
  (Key1 := exApp2.Range[exApp2.Cells[9, 15], exApp2.Cells[Rows, 15]],
  Order1:=2, Header:=2, OrderCustom:=1, MatchCase:=False, Orientation:=1, DataOption1:=0);

\\удаляю столбец с индексами
  exApp2.Cells.Columns[15].Delete(Shift := -4159);

Но все же хотелось применить данный макрос, т.к. это у меня пока еще три цвета и индексы идут как надо, а если будет больше