Программа проверки знаний английских слов.

void __fastcall TForm1::Exit1Click(TObject *Sender)
{
TOpenDialog *od = new TOpenDialog(this);
if (od->Execute()) {
 
 
      ListBox1->Items->LoadFromFile(od->FileName);
 
 
 
      ListBox2->Items->LoadFromFile(od->FileName);
 
 
 
delete od;
od = NULL;
}
 
}

.H
// что на форме, надеюсь, объяснять не надо ?
__published:    // IDE-managed Components
    TEdit *Edit1;
    TEdit *Edit2;
    TButton *Button1;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    TStringList *Dictionary;
    UnicodeString __fastcall Foo (UnicodeString S);
//---------------------------------------------------------------------------
.CPP
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Dictionary = new TStringList;
    Dictionary->LoadFromFile("dic.txt");
}
//---------------------------------------------------------------------------
UnicodeString __fastcall TForm1::Foo (UnicodeString S) // AnsiString для C++ Builder 6
{
    TStringList *SL=new TStringList;
    UnicodeString T;
  TSysCharSet Delimeters;
    Delimeters << ' ';
    ExtractStrings(Delimeters, TSysCharSet(), S.w_str(), SL);
    for(int i=0; i<SL->Count; i++)
    {
    if(i!=0) T=T+" ";
    T = T + Dictionary->Values[SL->Strings[i].Trim()];
    }
    return T;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Edit2->Text=Foo(Edit1->Text);
}