Упорядочить по убыванию элементы каждой строки матрицы и вывести в StringGrid

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include <memory>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int A[10][10];
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
int __fastcall Sorter(TStringList *L, int i1, int i2)
{
  int l1 = L->Strings[i1].ToInt();
  int l2 = L->Strings[i2].ToInt();
  if(l2 > l1) return 1;
  else if(l2 == l1) return 0;
        else return -1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Randomize();
  for(int i = 0; i < 10; i++)
   for(int j = 0; j < 10; j++)
    {
      A[i][j] = Random(100);
      StringGrid1->Cells[i][j] = IntToStr(A[i][j]);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  std::auto_ptr<TStringList> List(new TStringList());
  for(int i = 0; i < StringGrid1->RowCount; i++)
   {
     List->CommaText = StringGrid1->Rows[i]->CommaText;
     List->CustomSort(Sorter);
     StringGrid2->Rows[i]->CommaText = List->CommaText;
   }
}
//---------------------------------------------------------------------------

#include <Math.hpp>
// ...
 
int __fastcall Sorter(TStringList *L, int i1, int i2)
{
    return -CompareValue(L->Strings[i1].ToInt(), L->Strings[i2].ToInt());
}