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

timer1.Interval:=80000 ;// задаем интервал

edit1.Visible:=true; // показать текстовое окно

timer1.enabled :=true; // включаем таймер

edit1.SetFocus; // сделать активным текстовое окно

label2.Caption:=''; // очистить

t:=0; // обнуляем счетчик правильных слов

vremi:=80 ; // обратный отсчет

timer2.enabled :=true; // включаем таймер

end;

procedure TForm1.N3Click(Sender: TObject);

begin

image1.Picture.LoadFromFile('budilnik.wmf');

timer1.enabled :=true; // включаем таймер

timer1.Interval:=50000 ; // задаем интервал

edit1.Visible:=true; // показать текстовое окно

edit1.SetFocus; // сделать активным текстовое окно

label2.Caption:=''; // очистить

t:=0; // обнуляем счетчик правильных слов

vremi:=50 ; // обратный отсчет

timer2.enabled :=true; // включаем таймер

end;

procedure TForm1.N4Click(Sender: TObject);

begin

image1.Picture.LoadFromFile('budilnik.wmf');

timer1.enabled :=true; // включаем таймер

timer1.Interval:=30000 ; // задаем интервал

edit1.Visible:=true; // показать текстовое окно

edit1.SetFocus; // сделать активным текстовое окно

label2.Caption:=''; //очистить