Ввод текста в Мемо1 и вывод текста в Мемо2 по возрастанию слов

void __fastcall TForm1::Button1Click(TObject *Sender)
{
char** a = (char**)malloc(sizeof(char)*10);
/*String a[1][1],str; */
AnsiString str;
String str2;
int line,symb,l;
/*calloc(a,10);*/
for (line = 0; line < Memo1->Lines->Count-1; line++)
for (symb = 1; symb < (str=Memo1->Lines->Strings[line]).Length(); symb++)
 
 {
 str2=Memo1->Lines[line][symb];
 }
 Memo2->Lines->Add(str);
}

#include <System.Math.hpp>
#include <memory>
...
int __fastcall LenSort(TStringList *X, int i1, int i2)
{
   return CompareValue(X->Strings[i1].Length(), X->Strings[i2].Length());
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
   std::auto_ptr<TStringList> L (new TStringList);
   L->StrictDelimiter = true;
   L->Delimiter = ' ';
   L->DelimitedText = StringReplace(Memo1->Text.Trim(), "\r\n", "", TReplaceFlags() << rfReplaceAll);
   L->CustomSort(LenSort);
   Memo2->Text = L->DelimitedText;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
char** a = (char**)malloc(sizeof(char)*10);
/*String a[1][1],str; */
AnsiString str,v;
String str2;
int line,symb,l;
str2 = " ";
v = " ";
/*calloc(a,10);*/
for (line = 0; line < Memo1->Lines->Count; line++)
{
/*for (symb = 1; symb < (str=Memo1->Lines->Strings[line]).Length(); symb++)  */
 str=Memo1->Lines->Strings[line];
  for (l = 0; l < str.Length(); l++)
  {
   if (str[l] == " " ))// здесь выдает "Cannot convert 'char &' to 'const char *"
   {
   v=str[l];
   }
  }
}
 str2=Memo1->Lines->Strings[symb];
 Memo2->Lines->Add(v);
}

if (str[l] == ' ') ...

AnsiString str,v,*p;
...
p=str;
...
if (*(p+l) == " " ));

#include <System.StrUtils.hpp>
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   //Удаляем в тексте концевые пробелы и переносы строк,
   //записываем текст из Мемо1 в переменную
   String tmp = StringReplace(Memo1->Text.Trim(), "\r\n", "", TReplaceFlags() << rfReplaceAll);
   //Объявили строковый динамический массив А
   //и заполнили его, разбив текст на отдельные слова по пробелам
   TStringDynArray A = SplitString(tmp, " ");
   //Банальная сортировка массива методом пузырька
   for(int i = 0; i < A.High - 1; i++)
     for(int j = 0; j < A.High - i - 1; j++)
       if(A[j].Length() > A[j + 1].Length())
         {
            tmp = A[j];
            A[j] = A[j + 1];
            A[j + 1] = tmp;
         }
   //Формируем строку из отсортированных элементов массива
   tmp = "";
   for(int i = 0; i < A.High; i++)
     tmp += A[i] + " ";
   //Выводим результат в Мемо2
   Memo2->Text = tmp;
}

for(int j = 0; j <= A.High - i - 1; j++)

for(int j = 0; j < A.Length - i - 1; j++)

str=Memo1->Lines->Strings[line];

for (l = 0; l < str.Length(); l++)

str.Length()

for (int l = 1; l <= str.Length(); l++)

String str2;
str=Memo1->Lines->Strings[line];
for (l = 1; l < str.Length(); l++)
{
str2=str2+str[l];
}

AnsiString str,p;
String str3,str2;
...
str=Memo1->Lines->Strings[line];
 for (l = 1; l < str.Length()+1; l++)
  {
   str2=str[l];
   if (str2 != " " )
   {
   str3=str3+str2;
   }
   else
   if (str2 == " ")
   {
   for (j=0; j < p.Length(); j++)
   {
   p[j]=str3; // Cannot convert 'UnicodeString' to 'char'
   }
   continue;
   }

p[j]=str3;