Символ с ошибкой

[KLOP]

Вообщем вопрос заключаетсья в том что мне надо сделать клавиатурный тренажёр вроде всё норм работает но вот есть проблемка вылетает иногда такое вместо символа


вот процедура создания кода

procedure TForm1.N3Click(Sender: TObject);
var
i:integer;
begin
Label1.Visible:=True;
Label1.Font.Size:=75;
Label2.Visible:=True;
Label3.Visible:=True;
Edit1.Enabled:=true;
Edit2.ReadOnly:=true;
ENH:=1;
Time:=10;
Timer1.Enabled:=true;
lvl:=1;
for i:=1 to 26 do
Simvol[i]:=chr(i+64);
for i:=27 to 52 do
Simvol[i]:=chr(i-26+97);
randomize;
Label1.Caption:=simvol[random(52)]+simvol[random(52)]+simvol[random(52)];
end;

и смена символа происходит по нажатию клавиши Энтер если нужен код процедуры смены кнопки могу скинуть

[Gorychev]

Непонятно зачем вам эти циклы

for i:=1 to 26 do
Simvol[i]:=chr(i+64);
for i:=27 to 52 do
Simvol[i]:=chr(i-26+97);
randomize;
Label1.Caption:=simvol[random(52)]+simvol[random(52)]+simvol[random(52)];

Если вам нужно чтоб выпадал случайный символ, то можно зделать так:

var c: char;
begin
randomize;
// Случайный символ от А до Я
c:= chr(random(32)+ord('А'));
label1.Caption:= c;
// Случайный символ от A до Z
c:= chr(random(26)+ord('A'));
label2.Caption:= c;
end;

[KLOP]

я только учусь ,кстате попробую ваш вариант