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

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

begin

if Key = chr(VK_RETURN) then //если нажата клавиша "enter "

begin

m:=edit1.Text; // присваиваем введенное слово пользователем текстовое значение

// сравниваем текст с константой

// при равенстве счетчику правильных слов

// присваиваем +1

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

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

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

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

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

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

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

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

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

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

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

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

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;