Как отсортировать строки в memo по последним числам строк?

...
DynamicArray<String> arr_s;
DynamicArray<int> arr_i;
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int aSize = 0, k;
  String s;
  for(int i = 0; i < Memo1->Lines->Count; i++)
   {
     s = Memo1->Lines->Strings[i];
     arr_s.Length++;
     arr_i.Length++;
     arr_s[aSize] = s.SubString(1,s.Length()-2);
     arr_i[aSize] = StrToInt(s.SubString(s.Length()-1,2));
     ShowMessage(arr_s[aSize] + " - " + IntToStr(arr_i[aSize]));
     aSize++;
   }
  String tmp_s;
  int tmp_i;
  for(int i = 0; i < aSize - 1; ++i)
   {
     for(int j = 0; j < aSize - 1; ++j)
       {
         if (arr_i[j + 1] < arr_i[j])
          {
            tmp_i = arr_i[j + 1];
            tmp_s = arr_s[j + 1];
            arr_i[j + 1] = arr_i[j];
            arr_s[j + 1] = arr_s[j];
            arr_i[j] = tmp_i;
            arr_s[j] = tmp_s;
          }
       }
   }
  for (int i = 0; i < aSize; i++) Memo2->Lines->Add(arr_s[i] + IntToStr(arr_i[i]));

String delim = " ";
 
std::map<int, String> separateList;
std::map<int, String>::iterator it;
 
for( int count = 0; count < Memo1->Lines->Count; count++ )
    {
    int num;
    if( TryStrToInt( Memo1->Lines->Strings[count].SubString(
                                                  Memo1->Lines->Strings[count].LastDelimiter( delim ),
                                                  Memo1->Lines->Strings[count].Length()
                                                            ),
                     num ) )
        {
        separateList[num] = Memo1->Lines->Strings[count].SubString(
                                                         0,
                                                         Memo1->Lines->Strings[count].LastDelimiter( delim ) - delim.Length()
                                                                   );
        }
    }
 
for( it = separateList.begin(); it != separateList.end() ; ++it )
    {
        Memo2->Lines->Add( (*it).second + delim + (*it).first );
    }