Сортировка StringGrid-а и вывод результата в другой грид

void __fastcall TForm2::ButtonCopy(TObject *Sender)
{
   int k;
   int mas[10][3];
   srand ( time(NULL) );
    for (int i = 0; i < 10; i++)
    {
        if (StringGrid1->Cells[1][1] != "") StringGrid1->RowCount+=1;
        for (int j = 0; j < 3; j++)
        {
            k = rand() % 10;
            StringGrid1->Cells[j+1][i+1] = k;
            mas[i][j] = k;
 
        }
    }
 
 
    for (int i = 0; i < 10; i++)
    {
        if ((mas[i][0]+
            mas[i][1]+
            mas[i][2]) &1)
            {
                if (StringGrid2->Cells[1][1] != "") StringGrid2->RowCount+=1;
                for (int j = 0; j < 3; j++)
                {
                    StringGrid2->Cells[j+1][StringGrid2->RowCount-1] = StringGrid1->Cells[j+1][i+1];
                }
            }
    }
}

int __fastcall Sorter(TStringList *L, int i1, int i2)
{
  int Mn;
  ts == 1 ? Mn = -1 : Mn = 1;
  return Mn * CompareValue(L->Strings[i1].ToInt(), L->Strings[i2].ToInt());
}

float dob=1;
float r,q,w;
if(StrToFloat(StringGrid1->Cells[0][4])>=-1 && StrToFloat(StringGrid1->Cells[0][4])<=1)StringGrid1->Cells[0][4]=r;
else r=1;
if(StrToFloat(StringGrid1->Cells[0][3])>=-1 && StrToFloat(StringGrid1->Cells[0][3])<=1)StringGrid1->Cells[0][4]=q;
else q=1;
if(StrToFloat(StringGrid1->Cells[0][2])>=-1 && StrToFloat(StringGrid1->Cells[0][2])<=1)StringGrid1->Cells[0][4]=w;
else w=1;
dob=(q*w)*r;
Edit1->Text=(FloatToStrF(dob,ffFixed,7,2));

if((StrToFloat(StringGrid1->Cells[0][4]) >= -1) && (StrToFloat(StringGrid1->Cells[0][4]) <= 1)) r = StrToFloat(StringGrid1->Cells[0][4]);

r = fabs(EnsureRange(StrToFloat(StringGrid1->Cells[0][4]), -1.0, 1.0));
q = fabs(EnsureRange(StrToFloat(StringGrid1->Cells[0][3]), -1.0, 1.0));
w = fabs(EnsureRange(StrToFloat(StringGrid1->Cells[0][2]), -1.0, 1.0));