Игра в слова

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <fstream>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
using namespace std;
void __fastcall TForm2::Button2Click(TObject *Sender)
{
FILE *f;
f=fopen("k.txt", "r");
char k[10];
bool t = false, help = false;
Memo1->Lines->LoadFromFile("k.txt");
String word;
word=Memo1->Lines->Strings[rand()%Memo1->Lines->Count];
Memo1->Clear();
Memo2->Clear();
for (int i = 0; i < strlen(word.c_str()); i++)
{
k[i] = '*';
Memo2->Lines->Add(k[i]);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button1Click(TObject *Sender)
{
char c,k[10];
String word;
AnsiString ed=Edit1->Text;
char *s=(ed.c_str());
for (int i=0;i<strlen(word.c_str());i++)
{
if (word[i]==*s)
{
AnsiString ed=Edit1->Text;
char *k=(ed.c_str());
}
Memo1->Lines->Add(k[i]);
}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
   AnsiString aVer;
 
     aVer=Edit1->Text;
 
   for(int i=1; i<aSecret.Length(); i++)
      if(aSecret[i]==tolower(aVer[1]) || aSecret[i]==toupper(aVer[1])) aAsterisk[i]=aVer[1]; //здесь проверка
 
      Label1->Caption=aAsterisk; 
}