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

18:label1.Caption:= oo;

19:label1.Caption:=pp;

20:label1.Caption:=aa;

21:label1.Caption:=ss;

22:label1.Caption:=dd;

23:label1.Caption:=ff;

24:label1.Caption:=gg;

25:label1.Caption:=hh;

26:label1.Caption:=jj;

27:label1.Caption:=kk;

28:label1.Caption:=ll;

29:label1.Caption:=zz;

30:label1.Caption:=xx;

end;

if k=30 then //если сумма счетчика случайных слов достигла 30

begin

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

edit1.Visible:=false; // скрываем текстовое окно

// выводим сообщение пользователю

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

end;

begin

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

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

end;

end;

end;

procedure TForm1.N2Click(Sender: TObject);

begin