Разбить текст в Edit по признаку

void __fastcall TForm1::FormShow(TObject *Sender)
{
 Edit1->Text = "Part1.Common.";
 
}
//-----------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ShowMessage(Edit1->Text.SubString(1,Edit1->Text.Pos(".")-1));
 ShowMessage(Edit1->Text.SubString(Edit1->Text.Pos(".")+1,6));
}

     String Str = "Ìàøà.ìûëà,ðàìó;ñ ìûëîì";
     ExtractStrings(TSysCharSet() << ';'<<'.'<<',',
                    TSysCharSet(), Str.c_str(), Memo1->Lines);

TStringList *sl = new TStringList();
sl->DelimitedText = "Part1.Common.";
sl->Delimiter = '.';
 for(int i = 0; i < sl->Count; i++) 
 {
 dynamic_cast<TEdit*>(FindComponent("Edit" + IntToStr(i + 1)))->Text = sl->Strings[i];
 }

TStringList *sl = new TStringList();
 sl->Clear();
 sl->Delimiter = '.';
 sl->DelimitedText = "Part1.Common.";
 
 for(int i = 0; i < sl->Count; i++)
 {
   dynamic_cast<TEdit*>(FindComponent("Edit" + IntToStr(i + 1)))->Text = sl->Strings[i];
 }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TStringList *sl = new TStringList;
    ExtractStrings(TSysCharSet() << '.' ,
                    TSysCharSet(), Edit1->Text.c_str(), sl);
    if (sl->Count==2 && Edit1->Text[Edit1->Text.Length()]=='.')
    {
      Edit1->Text = sl->Strings[0];
      Label1->Caption = sl->Strings[1];
    }
    delete sl;
}