Курсовая работа: Побудова клавіатурного тренажера

if (slitera=='ж') l22->Font->Color=clRed; else l22->Font->Color=clBlack;

if (slitera=='э') l222->Font->Color=clRed; else l222->Font->Color=clBlack;

if (slitera=='я') z2->Font->Color=clRed; else z2->Font->Color=clBlack;

if (slitera=='ч') x2->Font->Color=clRed; else x2->Font->Color=clBlack;

if (slitera=='с') c2->Font->Color=clRed; else c2->Font->Color=clBlack;

if (slitera=='м') v2->Font->Color=clRed; else v2->Font->Color=clBlack;

if (slitera=='и') b2->Font->Color=clRed; else b2->Font->Color=clBlack;

if (slitera=='т') n22->Font->Color=clRed; else n22->Font->Color=clBlack;

if (slitera=='ь') m2->Font->Color=clRed; else m2->Font->Color=clBlack;

if (slitera=='б') m22->Font->Color=clRed; else m22->Font->Color=clBlack;

if (slitera=='ю') m222->Font->Color=clRed; else m222->Font->Color=clBlack;

if (slitera=='ё') ee->Font->Color=clRed; else ee->Font->Color=clBlack;

}

//-----Перевірка часу, та припинення тренування у випадку якщо час закінчився

if ((chas1==chas)&&(chas!=0)){

Timer2->Enabled=false; Timer1->Enabled=false;

if (rezhim==1) LiteraEng->Hide();

if (rezhim==2) LiteraUkr->Hide();

if (rezhim==3) LiteraRus->Hide();

Form2->Show();

Form2->NePravilno->Caption=IntToStr(NoCorect);

Form2->Pravilno->Caption=IntToStr(Corect);

Form2->All->Caption=IntToStr(Corect+NoCorect);

if (NoCorect!=0){

float kk;

kk=(float)Corect/(float)NoCorect;

Form2->Koef->Caption=FloatToStr(kk);

}

else