Клавиатурный тренажер на с++

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, ComCtrls;
 
type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
Panel1: TPanel;
Button2: TButton;
Panel2: TPanel;
Button3: TButton;
StatusBar1: TStatusBar;
Timer2: TTimer;
Label1: TLabel;
Label2: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure Button3Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
 
var
Form1: TForm1;
count, uncount, x: integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Focused;
Panel2.Visible := true;
Panel2.Top := 0;
Randomize;
Panel2.Caption := Chr(Random(26)+97) ;
count := 0;
uncount := 0;
x := 1;
Label1.Caption := 'Level ' + IntToStr(x);
Timer1.Enabled := true;
end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Panel2.Caption = key then
begin
Inc(count);
StatusBar1.Panels[1].Text := IntToStr(count);
Panel2.Top := Panel1.Height;
end;
if count = x * 10 then
begin
Inc(x);
Label1.Caption := 'Level ' + IntToStr(x);
if Timer1.Interval <= 250 then Timer1.Interval := Timer1.Interval - 25
else
if Timer1.Interval <= 100 then Timer1.Interval := 100
else
Timer1.Interval := Timer1.Interval - 250;
end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Randomize;
if Panel1.Height > Panel2.Top then
Panel2.Top := Panel2.Top + 20
else
begin
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.