Курсовая работа: Создание приложения Клавиатурный тренажер

Randomize;

Panel2.Caption := Chr(Random(26)+97);

Panel2.Left := Random(Panel1.Width - Panel2.Width);

Panel2.Top := 0;

nc(uncount);

StatusBar1.Panels[3].Text := IntToStr(uncount)

end;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Timer1.Enabled := False;

Panel2.Visible := False;

ShowMessage(IntToStr(count) + ' times correctly!')

end;

procedure TForm1.Timer2Timer(Sender: TObject);

var DateTime: TDateTime;

begin

DateTime := TIME;

StatusBar1.Panels[4].Text := DateToStr(Date) + ' ' + TimeToStr(DateTime);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Close;

end;

end.