Напечатать в алфавитном порядке все слова из данной строки

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString s[100];
AnsiString t;
int i,j;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
j=0;
while (Memo1->Text!=""){
   s[i]=strcpy(Memo1->Text,1,Pos(Memo1->Text," "));
    Memo1->Text.Delete(1,Pos(Memo1->Text," "));
    j++;
    }
for(i=0;i<j-1;i++){
    if (s[i]<s[i+1]){
        t=s[i];
        s[i]=s[i+1];
        s[i+1]=t;
        }
    }
for(i=0;i<j;i++){
    Memo1->Text+=s[i];
    }
}
//---------------------------------------------------------------------------

while (Memo1->Text!=""){
   s[i]=strcpy(Memo1->Text,1,Pos(Memo1->Text," "));

s[i] = Memo1->Text.SubString(1, Memo1->Text.Pos(" "));

#include <StrUtils.hpp>
 
// ...
 
void __fastcall TForm1::Button25Click(TObject *Sender)
{
    TStringDynArray s = SplitString(Memo1->Text, " ");
    std::auto_ptr<TStringList> lst(new TStringList);
    lst->Sorted = true;
    for(int i = 0; i < s.Length; i++) lst->Add(s[i]);
    Memo1->Clear();
    Memo1->Lines->AddStrings(lst.get());
}

void __fastcall TForm1::Button3Click(TObject *Sender)
{
     std::auto_ptr<TStringList> L(new TStringList);
     L->DelimitedText = Memo1->Text;
     L->Sorted = true;
     Memo1->Clear();
     Memo1->Lines->AddStrings(L.get());
}