Разделение строк из текста

void __fastcall TForm1::Button1Click(TObject *Sender)
{
try {
AnsiString messige = Edit1->Text;
int lenght = StrToInt(messige.Length());
int k,in,ik;k=0;AnsiString mess="______________________________";
 
for (int i=1;i<lenght;i++)
{
        if (messige[i]=='@')
        {
                in=i;
                break;
        }
}
for (int i=1;i<lenght;i++)
{
        if (messige[i]=='@')
        {
                ik=i;
        }
}
 
        for (int i=in;i<ik;i++)
        {
        mess[k]=messige[i];
        k++;
        }
 
 
 
Edit2->Text = mess;
 }
        catch(...)
        {
                ShowMessage("Îøèáêà!");
        }
}

TStringList *list = new TStringList;
ExtractStrings(TSysCharSet()<< '@', TSysCharSet(), Edit1->Text.c_str(), list);
Edit2->Text = list->Strings[0];
Edit3->Text = list->Strings[1];
Edit4->Text = list->Strings[2];
delete list;

AnsiString mes = Edit1->Text;
AnsiString mes1, mes2;
 
mes1 = mes.SubString(0, mes.Pos("@")-1);
mes.Delete(1, mes.Pos("@"));
 
mes2 = mes.SubString(0, mes.Pos("@")-1);
mes.Delete(1, mes.Pos("@"));
 
 
Edit2->Text = mes1;
Edit3->Text = mes2;
Edit4->Text = mes;