Поменять порядок следования символов первой строки на противоположный

__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm1 *Form1;
 
TStringList *list1; // создаем указатель на список TStringList
TStringList *list2;
int i,j; // объявляем целочисленные переменные
AnsiString str; //объявляем переменную - строку
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    list1 = new TStringList; // Создаем новый список
//  list1->StrictDelimiter = true; // разрешаем использовать разделитель
//  list1->Delimiter = ' '; // определяем разделитель
 
  list2 = new TStringList;
//  list2->StrictDelimiter = list1->StrictDelimiter;
//  list2->Delimiter = list1->Delimiter;
 
  // все последующее можно указать в Инспекторе Объектов
    Form1->Caption = "Сравнение слов в строках";
    Form1->Position = poDesktopCenter;
 
    Button1->Caption = "Сравнить";
  Button2->Caption = "Сравнить";
//
    Label1->Caption = "Memo1 - Слова совпадают";
  Label2->Caption = "Memo2 - Слова не совпадают";
    Label3->Caption = "Memo3 - Меняем порядок символов";
    Label4->Caption = "Memo4 - Меняем символы на \"!\"";
  Label5->Caption = "";
  Label5->Font->Color = clGreen;
 
  Memo1->Lines->Add("Если второе слово первой строки такое же");
  Memo1->Lines->Add("как второе слово второй строки");
    Memo2->Lines->Add("в противном случае заменить");
  Memo2->Lines->Add("все символы второй строки на \"!\"");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TSysCharSet Tws,Tcs;
  Tcs<<' '; // разделители
 
    AnsiString S1 = Memo1->Lines->Strings[0]; //  Для ВСВ6 используйте AnsiString
  ExtractStrings(Tcs,Tws,S1.c_str(),Memo3->Lines);
  list1->Text = Memo3->Text;
 
    Memo3->Clear(); // очищаем поле ввода от предыдущего текста
 
    AnsiString S2 = Memo1->Lines->Strings[1]; // Для ВСВ6 используйте AnsiString
  ExtractStrings(Tcs,Tws,S2.c_str(),Memo3->Lines);
  list2->Text = Memo3->Text;
 
//  list1->DelimitedText = Memo1->Lines->Strings[0]; // заносим в каждую строку списка слово
//  list2->DelimitedText = Memo1->Lines->Strings[1];
    Memo3->Clear(); // лчищаем поле ввода от предыдущего текста
 
  for (i = 0; i < list1->Count; i++) { // цикл по списку
        for (j = 0; j < list2->Count; j++) {
      if (list1->Strings[1] == list2->Strings[1]) { // если строки списков с индексом 1 совпадают
         ShowMessage("Второе слово первой строки: \""+ // выводим сообщения
                                         list1->Strings[1]+
                     "\"\nи второе слово второй строки: \""+
                     list2->Strings[1]+
                                         "\"\n совпадают.");
        for (i = Memo1->Lines->Strings[0].Length()+1; i > 0;  i--) { // обратный цикл по первой строке
          str = Memo1->Lines->Strings[0].SubString(i,1); // заносим символ i в переменную
                    Memo3->Text = Memo3->Text+str; // заносим текст в Memo3 в обратном порядке
        }
        return; // прерываем этот поиск нафиг
            }
    }
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  TSysCharSet Tws,Tcs;
  Tcs<<' '; // разделители
 
  AnsiString S1 = Memo2->Lines->Strings[0]; //  Для ВСВ6 используйте AnsiString
  ExtractStrings(Tcs,Tws,S1.c_str(),Memo4->Lines);
    list1->Text = Memo4->Text;
 
    Memo4->Clear(); // очищаем поле ввода от предыдущего текста
 
  AnsiString S2 = Memo2->Lines->Strings[1]; // Для ВСВ6 используйте AnsiString
  ExtractStrings(Tcs,Tws,S2.c_str(),Memo4->Lines);
    list2->Text = Memo4->Text;
 
//  list1->DelimitedText = Memo2->Lines->Strings[0]; // заносим в каждую строку списка слово
//  list2->DelimitedText = Memo2->Lines->Strings[1];
 
  Memo4->Clear(); // лчищаем поле ввода от предыдущего текста
 
  for (i = 0; i < list1->Count; i++) { // цикл по списку
    for (j = 0; j < list2->Count; j++) {
            if (list1->Strings[1] != list2->Strings[1]) { // если строки списков с индексом 1 не совпадают
         ShowMessage("Второе слово первой строки: \""+ // выводим сообщения
                     list1->Strings[1]+
                                         "\"\nи второе слово второй строки: \""+
                     list2->Strings[1]+
                     "\"\n не совпадают.");
                str = '!';
        for (i = 1; i < Memo2->Lines->Strings[1].Length()+1; i++) { // цикл по второй строке
          Memo4->Text = Memo4->Text+str; // заносим в Memo4 символ !
                }
        Label5->Caption = "Количество символов: "+IntToStr(Memo2->Lines->Strings[1].Length());
        return; // прерываем этот поиск нафиг
            }
    }
    }
}}
//---------------------------------------------------------------------------
 
 
// Сделай обработчик для Form1 FormDestroy - в Инспекторе Объектов !
// - и помести туда этот код - только четіре строчки после первой *
/*
    delete list1;
    list1 = NULL;
    delete list2;
    list2 = NULL;
*/
// вот так:
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete list1;
    list1 = NULL;
    delete list2;
    list2 = NULL;
}
//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{...

  Memo1->Clear();
  Memo2->Clear();
  Memo3->Clear();
  Memo4->Clear();