Вывести информацию в алфавитном порядке в Memo на c++builder

Memo1->Lines->Add( "A" );
Memo1->Lines->Add( "B" );
Memo1->Lines->Add( "C" );

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *sl = new TStringList;
sl->Text = Memo1->Text;
sl->Sort();
Memo1->Text = sl->Text;
delete sl;
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Lines->Add("Result");
for (int i=0;i<=nzap-1;i++)
 for (int j=i+1;j<=nzap;j++)
  if(Stud[i].srb>Stud[j].srb)
{ st=Stud[i];
Stud[i]=Stud[j];Stud[j]=st;}
for (int i=0;i<=nzap;i++)
Memo1->Lines->Add(Stud[i].FIO+  " "  +IntToStr(Stud[nzap].otc[0])+  " "  +IntToStr(Stud[nzap].otc[1])+  " "  +IntToStr(Stud[nzap].otc[2])+  " "  +FloatToStrF(Stud[i].srb,ffGeneral,2,6));
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 Memo1->Lines->Add("Result");
for (int i=0;i<=nzap-1;i++)
 for (int j=i+1;j<=nzap;j++)
  if(Stud[i].srb<0)
{ st=Stud[i];
Stud[i]=Stud[j];Stud[j]=st;}
for (int i=0;i<=nzap;i++)
Memo1->Lines->Add(Stud[i].FIO+  " "  +IntToStr(Stud[nzap].otc[0])+  " "  +IntToStr(Stud[nzap].otc[1])+  " "  +IntToStr(Stud[nzap].otc[2])+  " "  +FloatToStrF(Stud[i].srb,ffGeneral,2,6));
}

TStringList *sl = new TStringList; // Динамическое создание списка строк. 
                                   //  sl - имя списка, TStringList - имя класса.
sl->Text = Memo1->Text;       // Копирование текста из Memo в список
sl->Sort();   // Сортировка списка. 
              // Именно для этого и нужен был TStringList - в нем есть штатный метод сортировки.
Memo1->Text = sl->Text; // Копирование отсортированного списка в Memo из листа.
delete sl;    // Удаление более ненужного объекта списка.

Form2->Show(); // Покажет вторую форму

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
Image1->Canvas->Rectangle(0,0,Image1->Width,Image1->Height);
Image1->Canvas->Ellipse(X-10,Y-10,X+10,Y+10);
Image1->Canvas->Pen->Color=clRed;
Image1->Canvas->MoveTo(Y-10,X+10);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image2MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
Image2->Canvas->Brush->Color=clWhite;
Image2->Canvas->Rectangle(0,0,Image2->Width,Image2->Height);
Image2->Canvas->Brush->Color=clGreen;
Image2->Canvas->Pen->Color=clRed;
Image2->Canvas->Rectangle(X-6,Y-10,X+20,Y+50);
Image2->Canvas->Ellipse(X-40,Y-60,X+60,Y+30);
}
//---------------------------------------------------------------------------