Курсовая работа: Составить программу обучения работе с клавиатурой

if m=rr then t:=t+1;

if m=tt then t:=t+1;

if m=yy then t:=t+1;

if m= uu then t:=t+1;

if m=ii then t:=t+1;

if m= oo then t:=t+1;

if m= pp then t:=t+1;

if m=aa then t:=t+1;

if m=ss then t:=t+1;

if m=dd then t:=t+1;

if m=ff then t:=t+1;

if m=gg then t:=t+1;

if m=hh then t:=t+1;

if m=jj then t:=t+1;

if m=kk then t:=t+1;

if m=ll then t:=t+1;

if m=zz then t:=t+1;

if m=xx then t:=t+1;

o:=o+1; // счетчику случ. слов присвоили 1

if o=2 then // если сумма счетчика достигла 2

begin

timer1.enabled:=false; // останавливаем таймер

edit1.Visible:=false; // делаем недоступным текстовое окно

image1.Picture.LoadFromFile ('fonovi.wmf') ; // загружаем картинку

// если счетчик правильных слов превысил 20 выводим сообщение пользователю

if t>20 then label2.Caption:='блестяще количество набранных слов ='+ inttostr (t)+'переходите';

// если нет, то выводим другое сообщение

label2.Caption:='количество набранных слов = ' +inttostr (t) + ' из 20 ';

end;