Сортировать слова в соответствии с увеличением длины

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <iostream.h>
#include <conio.h>
#include <stdio.h>
#include <string.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Lines->Add(Edit1->Text);
Button1->Caption="Ввести наступне слово ";
Edit1->Clear();
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
int symbols = 0;
int max = 0;
int num;
for(int j = 0; j < Memo1->Lines->Count; j++)
{
AnsiString str = Memo1->Lines->Strings[j] + " ";
 
for(int i = 0; i < str.Length(); i++)
{
if(str[i + 1]!= ' ')
symbols++;
 
else
{
if(symbols > max)
{
max = symbols;
num = j + 1;
Memo2->Lines->Add(symbols);
}
symbols = 0;
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  String G = "0";
  TStringList *list = new TStringList;
  Memo1->Text=StringReplace(Memo1->Text,"."," ",TReplaceFlags()<<rfReplaceAll);
  Memo1->Text=StringReplace(Memo1->Text,","," ",TReplaceFlags()<<rfReplaceAll); 
  list->Text=StringReplace(Memo1->Text," ","\n",TReplaceFlags()<<rfReplaceAll);
  for (int i=0;i<list->Count;i++)
    if (list->Strings[i].Length()>0)  {
      G[1] = char('z'-list->Strings[i].Length()) ;
      list->Strings[i] = G+list->Strings[i];  }
  list->Sort();
  Memo2->Clear();
  for (int i=0;i<list->Count;i++)
    if (list->Strings[i].Length()>0)
      Memo2->Lines->Add(list->Strings[i].SubString(2,99));
  delete list;
}

//---------------------------------------------------------------------------
int _fastcall LengthSort(TStringList *SL,int i1,int i2)// Ф-ция  сравнения
{
int l1= SL->Strings[i1].Length();
int l2= SL->Strings[i2].Length();
 
if(l1>l2) return 1;
else if(l1==l2) return 0;
     else return -1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *SL= new TStringList;
 
SL->Delimiter=' '; 
SL->DelimitedText = Memo1->Text;
SL->CustomSort(LengthSort); // сортировать согласно ф-ции
 
Memo2->Lines->Assign(SL);
delete SL;
}
//---------------------------------------------------------------------------