if (boo == true) {
for (i=1; i <= Memo1->Lines->Count-1; i++) { //в memo лежит словарик, у меня ListBox
if (Edit1->Text == Memo1->Lines[i].Text) {
if (Pos(s[n],Edit1->Text) == 1) { //в Edit вводится слово
ListBox1->Items->Add(Edit1->Text); //в ListBox слова добавляются
Memo1->Lines->Delete(i);
s = Edit1->Text;
if (s.Pos('ъ') == s.Length() ||
s.Pos('ь') == s.Length() ||
s.Pos('ы') == s.Length()) {
s.Delete(s.Length(),1);
Button2->Enabled = false;
Button6->Enabled = true;
}}}}}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i,l,n;
n = s.Length();
for (i=1; i <= Vocabulary->Items->Count-1; i++) {
if (Word->Text == Vocabulary->Items->Strings[i]) {
if (Pos(s[n],Word->Text) == 1) {
WordBox->Items->Add(Word->Text);
Vocabulary->Items->Delete(i);
s = Word->Text;
if (s.Pos('ъ') == s.Length() ||
s.Pos('ь') == s.Length() ||
s.Pos('ы') == s.Length()) {
s.Delete(s.Length(),1);
}
}
}
}
}