C++ Builder, из Excel в StringGrid, сортировка

Variant Excel = CreateOleObject("Excel.Application");
    Excel.OlePropertySet(WideString("Visible"), true);
    Variant Book = Excel.OlePropertyGet(WideString("Workbooks")).OlePropertyGet
        (WideString("Open"), WideString("D:\\11.xls"));
    Variant Sheet = Book.OlePropertyGet("Worksheets", 1);
    // активация последней заполненной ячейки
    Excel.OlePropertyGet("Cells").OlePropertyGet("SpecialCells", XlCellType::xlCellTypeLastCell).OleProcedure("Activate");
    // Получаем значение последней строки
    int rows = Excel.OlePropertyGet("ActiveCell").OlePropertyGet("Row");
    // Получаем значение последней колонки
    int cols = Excel.OlePropertyGet("ActiveCell").OlePropertyGet("Column");
    StringGrid1->ColCount = cols;
    StringGrid1->RowCount = rows;
 
    for (int j = 0; j < rows; j++)
        for (int i = 0; i < cols; i++)
            this->StringGrid1->Cells[i][j] =
                Sheet.OlePropertyGet(WideString("Cells"), j + 1, i + 1);
 
    Excel.OleProcedure(WideString("Quit"));

Variant var_Excel, var_Sheet;
int Row_Counter = 0, Column_Counter = 0, Max_Column =50, Max_Row = 50;
 
var_Excel=CreateOleObject("Excel.Application");
var_Excel.OlePropertyGet("Application").OlePropertyGet("Workbooks").OleProcedure("Open" , OpenDialog1->FileName.c_str() );
var_Excel.OlePropertySet("Visible",false);
var_Sheet = var_Excel.OlePropertyGet("ActiveSheet");
 
for (Row_Counter ; Row_Counter <= Max_Row ; Row_Counter++)
    {
      for (Column_Counter ; Column_Counter <= Max_Column  ; Column_Counter++)
          {
           StringGrid1->Cells[Column_Counter][Row_Counter] =
               var_Sheet.OlePropertyGet("Cells").OlePropertyGet("Item", Row_Counter + 1 , Column_Counter + 1);
          }
          Column_Counter = 0;
    }
var_Excel.OlePropertyGet("Application").OleProcedure("Quit");
var_Sheet = Unassigned;
var_Excel = Unassigned;