Сортировка в gride по последнему столбцу с изменением порядковых номеров в первом столбце

    std::auto_ptr<TStringList> L(new TStringList);
    for(int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
        L->AddObject(StringGrid1->Cells[5][i], (TObject*)(new String(StringGrid1->Rows[i]->CommaText)));
 
    L->Sort(); // Если нужна какая-то хитрая сортировка - используй CustomSort...
 
    for(int i = 0; i < L->Count; i++)
    {
        String *p = reinterpret_cast<String*>(L->Objects[i]);
        StringGrid1->Rows[i + StringGrid1->FixedRows]->CommaText = *p;
        StringGrid1->Cells[1][i + StringGrid1->FixedRows] = IntToStr(i + 1);
        delete p;
    }

void TForm25::SortGridColumn( int iCol )
{
  int irows = StringGrid1->RowCount;
  for( int i = irows; i > 1; i-- )
    {
     for ( int j = 1; j < i; j++ )
       {
       if ( StringGrid1->Cells[iCol][j] < StringGrid1->Cells[iCol][j-1] )
          {
          AnsiString sTemp = StringGrid1->Rows[j]->Text;
          StringGrid1->Rows[j]->Text = StringGrid1->Rows[j-1]->Text;
          StringGrid1->Rows[j-1]->Text = sTemp;
          }
        }
    }
.....
.....
void __fastcall TForm25::Button2Click(TObject *Sender)
{
SortGridColumn(1);
}

[C++ Error] Unit25.cpp(85): E2316 'auto_ptr' is not a member of 'std'
[C++ Error] Unit25.cpp(85): E2108 Improper use of typedef 'TStringList'
[C++ Error] Unit25.cpp(85): E2268 Call to undefined function 'L'
[C++ Error] Unit25.cpp(87): E2288 Pointer to structure required on left side of -> or ->*
[C++ Error] Unit25.cpp(89): E2288 Pointer to structure required on left side of -> or ->*
[C++ Error] Unit25.cpp(91): E2288 Pointer to structure required on left side of -> or ->*
[C++ Error] Unit25.cpp(93): E2288 Pointer to structure required on left side of -> or ->*

    TStringList *L = new TStringList;
    for(int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
        L->AddObject(StringGrid1->Cells[5][i], (TObject*)(new String(StringGrid1->Rows[i]->CommaText)));
 
    L->Sort(); // Если нужна какая-то хитрая сортировка - используй CustomSort...
 
    for(int i = 0; i < L->Count; i++)
    {
        String *p = reinterpret_cast<String*>(L->Objects[i]);
        StringGrid1->Rows[i + StringGrid1->FixedRows]->CommaText = *p;
        StringGrid1->Cells[1][i + StringGrid1->FixedRows] = IntToStr(i + 1);
        delete p;
    }
    delete L; // Вот для этого и нужен auto_ptr, чтобы самому не парить себе мозг удалением объекта...

#include <memory>

int irows = StringGrid1->RowCount;
   for( int i = irows; i > 1; i-- )
     {
     for ( int j = 1; j < i; j++ )
       {
       if ( StringGrid1->Cells[iCol][j] < StringGrid1->Cells[iCol][j-1] )
         {
         AnsiString sTemp = StringGrid1->Rows[j]->Text;
         StringGrid1->Rows[j]->Text = StringGrid1->Rows[j-1]->Text;
         StringGrid1->Rows[j-1]->Text = sTemp;
         }
       }
     }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TStringList *sl = new TStringList;
   for(int i=1;i<6;i++) sl->Add(StringGrid1->Cells[4][i]+StringGrid1->Rows[i]->CommaText);
   sl->Sort();
   for (int i=1;i<6;i++) {
     StringGrid1->Rows[i]->CommaText=sl->Strings[i-1];
     StringGrid1->Cells[0][i] = i;
   }
   delete sl; 
}

Подключить1,"8Марта 23 п.1 кв: 
",547852,458985,Подключить
Запуск2,"29ВГородок 14 п.3 кв: 55
",547852,458985,Запуск
Кнопка3,"АКесаева 27-1 п.1 кв: 55
",547852,458985,Кнопка
Подключить4,"АКесаева  5 п.2 кв: 55
",547852,458985,Подключить
Подключить5,"50ЛОктября 8 п.1 кв: 55
",547852,458985,Подключить

TStringList *L = new TStringList;
    for(int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
        L->Add(StringGrid1->Rows[i]->CommaText);
    for(int i = 0; i < L->Count; i++)
        L->Exchange(Random(L->Count), Random(L->Count));
    for(int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
        StringGrid1->Rows[i]->CommaText = L->Strings[i - StringGrid1->FixedRows];
    delete L;

int iRows = 1;
int iCoun = 1;
int iDigi = 1;
 
TStringList *Sara=new TStringList;
TStringList *inord=new TStringList;
TStringList *iwest=new TStringList;
TStringList *list = new TStringList;
//---------------------------------------------------------------------------
__fastcall TForm25::TForm25(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm25::FormShow(TObject *Sender)
{
Color=Form1->Color;
Font=Form1->Font;
 
Caption = "Àäðåñàò çàÿâîê " + Form1->Edit5->Text;
StringGrid1->Cells[0][0]="¹";
StringGrid1->Cells[1][0]="Àäðåñ";
StringGrid1->Cells[2][0]="Òåëåôîí äîì";
StringGrid1->Cells[3][0]="Òåëåôîí ìîá";
StringGrid1->Cells[4][0]="Çàÿâêà";
 
// ñ÷èòûâàåì èç Memo
 list->Text = Form21->Memo1->Text;
 for(int i = 0; i < list->Count; i++)
   {
   if (list->Strings[i].Pos("êâ: "))
     {
      StringGrid1->RowCount+=1;
      Sara->Text=iCoun;
      iwest->Text = list->Strings[i];
      iwest->Text = StringReplace(iwest->Text, " ", "_",TReplaceFlags() << rfReplaceAll);
      StringGrid1->Rows[iRows]->DelimitedText = Sara->Text + iwest->Text +" "+ list->Strings[i+1];
      iRows++;
      iCoun++;
      }
    }
 StringGrid1->RowCount-=1;
 
 // ìåíÿåì ïðîáåëû íà _
for(int i=1; i < StringGrid1->ColCount;i++)
   for(int j=1; j < StringGrid1->RowCount;j++)
     if (StringGrid1->Cells[i][j].Pos("_"))
        {
        inord->Text=StringGrid1->Cells[i][j]; //ñ÷èòàëè â ïåðåìåííóþ òåêñò äëÿ îáðàáîòêè
        inord->Text = StringReplace(inord->Text, "_", " ",TReplaceFlags() << rfReplaceAll);
        StringGrid1->Cells[i][j]=inord->Text;
        }  
 
 // ñîðòðóåì è ìåíÿåì â ïåðâîé êîëîíêå ïîðÿäîê öèôð
 TStringList *sl = new TStringList;
   for(int i=1;i<6;i++) sl->Add(StringGrid1->Cells[4][i]+StringGrid1->Rows[i]->CommaText);
     sl->Sort();
   for(int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
     {
     StringGrid1->Rows[i]->CommaText = sl->Strings[i - StringGrid1->FixedRows];
     StringGrid1->Cells[0][iDigi] = iDigi;
     iDigi++;
     }
   delete sl;
   iDigi = 1;
}
//--------------------------------------------------------------------------

StringGrid1->Cells[0][0]="№";
StringGrid1->Cells[1][0]="Адрес";
StringGrid1->Cells[2][0]="Телефон дом";
StringGrid1->Cells[3][0]="Телефон моб";
StringGrid1->Cells[4][0]="Заявка";

    StringGrid1->Rows[0]->CommaText="¹,Àäðåñ,\"Òåëåôîí äîì\",\"Òåëåôîí ìîá\",Çàÿâêà";