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

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

form1.Close; // закрытие приложения

end;

procedure TForm1.Timer1Timer(Sender: TObject); // обр. таймера

begin

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

o:=k ; // заменяем переменную счетчика к на 0

randomize; // вызов проц. ген. чисел

x:=random (30)+1; // генерируем случ. числа

case x of // выбор случайного слова из предложенных

1: label1.Caption := prob;

2:label1.Caption:= h ;

3:label1.Caption:= u;

4: label1.Caption:= f;

5:label1.Caption:= y;

6:label1.Caption:= l;

7:label1.Caption:= d;

8:label1.Caption:= n;

9:label1.Caption:= r;

10:label1.Caption:=qq ;

11:label1.Caption:= ww;

12:label1.Caption:= ee;

13:label1.Caption:=rr ;

14:label1.Caption:=tt ;

15:label1.Caption:=yy ;

16:label1.Caption:=uu ;