Не вычисляет количество, где ошибка?

unit trainer;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation const
L = 3; 
var
n: integer;     
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Visible := FalseLabel1.WordWrap := True;
 Label1.Caption := 'Запомнить букву, набрать его на клавиатуре'; 
Button1.Caption := 'Начать';
Timer1.Enabled := False;  
Timer1.Interval := 1000; 
n := 0;
Randomize;  
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption = 'Завершить' then Form1.Close; 
if Button1.Caption = 'Начать' then
begin
Button1.Caption := 'Завершить';
Button1.Visible := False; 
Label1.Caption := '';
Label1.Font.Size := 24; 
Edit1.Font.Size := 24;  
Label1.Caption := Chr(Random(26)+97) ;
Timer1.Enabled := True; 
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False; 
Label1.Visible := False; 
Edit1.Visible := True; 
Edit1.SetFocus;        
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
s: string;
ver: integer;
begin
ver := 0;  
s := Edit1.Text[1];
if s = Key
then
ver := ver + 1;  
Edit1.Text := '';
Edit1.Visible := False; 
n := n + 1;     
if n < L then
begin
Label1.Caption := Chr(Random(26)+97);
Label1.Visible := True;
Timer1.Enabled := True;  
end
else begin
Label1.Font.Size := 10;
Label1.Caption := 'Результат' + #13 + 'Показано букв: ' + IntToStr(L) + #13 + 'Правильных: ' + IntToStr(ver);
Label1.Visible := True;
Button1.Visible := True; 
end;
end;
end.