Разбить 1 Edit на 2 Editы

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{String s = Edit1->Text;
 
int c_pos = s.Pos("-"), text_length = Edit1->Text.Length();
 
 
    if(c_pos == 0)
    {
        ShowMessage("Такое нереально сделать!!! c_pos == 0;");
        return;
    }
    //----------------=====================================================
    Label1->Caption = "   c_pos      = " + (String)IntToStr(s.Pos("-")) + \
                      "\ntext_length = " + (String)Edit1->Text.Length();
    //----------------=====================================================
    if(text_length == c_pos)
    {
        ShowMessage("Такое нереально сделать!!! text_length == c_pos;");
        return;
    }
 
    //---------------------------------------------------------------------
    if(text_length > c_pos)
    {
        ShowMessage("Такое   реально сделать!!!");
 
        Edit2->Text = Edit1->Text.SubString(1, c_pos - 1);
 
        Edit3->Text = Edit1->Text.SubString(c_pos + 1, text_length - c_pos);
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{ListBox1->Clear();
 
    String S = "Москва-Волгоград Васюки";
 
    TSysCharSet delim, space;
    //---------------------------------------------------------
    delim<<'-'<<' '; //в множество delim заносятся разделители
    //---------------------------------------------------------
    ExtractStrings(delim,
                   space,
                   S.c_str(),//откуда
                   ListBox1->Items);//куда
}
//---------------------------------------------------------------------------