Из Edit в Memo

char sl[30];
...
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
sl[30]=Edit1->Text;
}
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Lines->Add(sl);
}

AnsiStirng sl;
...
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
sl=Edit1->Text;
}
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Lines->Add(sl);
}

AnsiString a="hellow";
char *b=a.c_str();

char ar[240]="hellow";
AnsiString str;
str=(AnsiString)ar;

void __fastcall TForm1::Button2Click(TObject *Sender)
{
int fi=0, n, kolvo;
AnsiString buff;
Memo2->Clear();
kolvo=Memo1->Lines->Count;
for(int j=0;j<kolvo; j++)
{
n=Memo1->Lines->Strings[j].Length();
buff=Memo1->Lines->Strings[j];
char *buff2=buff.c_str();
for(int i=1;i<n; i++)
        {
        if(strlen(buff2)%2!=0)
                if(strlen(buff2)/2==buff2[0] && strlen(buff2)/2==buff2[strlen(buff2)-1])
                        Memo2->Lines->Add(buff2);
                else Memo2->Text="Таких слов нет.";
        }
}
}