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

// обр. Нажатия клавиши "enter"

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure N2Click(Sender: TObject); //

procedure N3Click(Sender: TObject); // три положения скорости таймера

procedure N4Click(Sender: TObject); //

procedure Button2Click(Sender: TObject); // обр. Кнопки сброс

procedure Timer2Timer(Sender: TObject); // отсчет обратного времени

private

{ Private declarations }

public

{ Public declarations }

end;

// объявление глобальных переменных и констант

var

Form1: TForm1;

// переменные для подсчета кол-ва выведенных слов, правильных ответов

// и для оператора выбора генерации случайных слов

vremi,o,k,t, x:integer;

m:string; // присваивается значение текста введенного пользователем

// именованные константы для генератора случайных слов

const

prob='диван';

f='кровать';

n='картина';

h='стенка';

u='солнышко';

y='компьютер';

l='принтер';

d='ковер';