TMsgEditFrm *MsgEdit = new TMsgEditFrm(Application);
TMulLanguage *pML = dynamic_cast<TMulLanguage*>(GetComponent(0));
try
{
if(pML->MessageEdit)
MsgEdit->ValueListEditor1->Strings->Assign(pML->MessageEdit);
MsgEdit->ShowModal();
pML->MessageEdit->Assign(MsgEdit->ValueListEditor1->Strings);
pML->MessageEdit->Text = "MsgList";
}
__finally
{
delete MsgEdit;
}