Игра в слова

FILE *f;
f = textfile;
int N;
bool boo;
AnsiString s;
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int i,j,k,l,n;
  AnsiString m;
  TLabel *L1 = new TLabel;
  n = s.Length();
 
  if (!boo) { // boo == false
     for (i=1; i <= Memo1->Lines->Count-1; i++) {
       if (Edit1->Text == Memo1->Lines[i].Text) {
        if (Pos(s[n],Edit1->Text) == 1) {
          ListBox1->Items->Add(Edit1->Text);
          Memo1->Lines->Delete(i);
          Button1->Visible = false;
          Button2->Visible = false;
          s = Edit1->Text;
          if (s.Pos('ъ') == s.Length() ||
              s.Pos('ь') == s.Length() ||
              s.Pos('ы') == s.Length()) {
            s.Delete(s.Length(),1);
            random(5); // не знаю, какое тут должно быть значение
            l = s.Length();
            for (j=1; j <= Memo1->Lines->Count-1; j++) {
              m = Memo1->Lines[j].Text;
              if (s.Pos(m) == 1) {
                Memo2->Lines->Add(Memo1->Lines[j].Text);
              }
            }
            k = random(Memo2->Lines->Count);
            s = Memo2->Lines[k].Text;
            ListBox1->Items->Add(Memo2->Lines[k].Text);
            Button2->Visible = true;
            Memo2->Clear();
          }
        }
      }
    }
  }
  if (boo == true) {
     for (i=1; i <= Memo1->Lines->Count-1; i++) {
       if (Edit1->Text == Memo1->Lines[i].Text) {
        if (Pos(s[n],Edit1->Text) == 1) {
          ListBox1->Items->Add(Edit1->Text);
          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;
          }
        }
      }
    }
  }
}