Не могу понять где ошибка(

unit Unit_22;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    GroupBox2: TGroupBox;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    GroupBox3: TGroupBox;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    RadioButton15: TRadioButton;
    GroupBox4: TGroupBox;
    RadioButton16: TRadioButton;
    RadioButton17: TRadioButton;
    RadioButton18: TRadioButton;
    RadioButton19: TRadioButton;
    RadioButton20: TRadioButton;
    Label7: TLabel;
 
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
 
implementation
 
{$R *.dfm}
 
 procedure TForm1.Button1Click(Sender: TObject);
var i, k: integer;
begin
k := 0;
for i := 1 to 20 do //Поиск нажатых радиобаттонов
begin
with TRadioButton(FindComponent('RadioButton' + IntToStr(i))) do
//Надпись на нажатом радиобаттоне используем для подсчёта очков
if Checked then k := k + StrToInt(Caption);
end;
case k of //Пишем, чего навыбирали
0: Label7.Caption := 'Вы ничего не выбрали';
1..4: Label7.Caption := 'Вы пессимист';
5..9: Label7.Caption := 'Вы алкоголик';
10..13: Label7.Caption := 'Вы оптимист';
14..17: Label7.Caption := 'Вы пофигист';
18..20: Label7.Caption := 'Вы гений';
end;
end;
 procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
for i := 1 to 20 do
begin
with TRadioButton(FindComponent('RadioButton' + IntToStr(i))) do
Checked := false;
end;
Label7.Caption := '';
end;
 
 
 
 
 
end.

  for i := 1 to 4 do
    for j := 1 to 5 do
      with TControl(FindComponent('Panel' + IntToStr(i)).
                    FindComponent('RadioButton' + IntToStr(j)) as TRadioButton) do
        if Checked then k := k + StrToInt(Caption);

for i := 1 to 4 do
    for j := 1 to 5 do
      with TGroupBox(FindComponent('GroupBox' + IntToStr(i)).
                     FindComponent('RadioButton' + IntToStr(j)) as TRadioButton) do
        if Checked then k := k + StrToInt(Caption);

for i := 1 to 20 do //Поиск нажатых радиобаттонов
begin
with TRadioButton(FindComponent('RadioButton' + IntToStr(i))) do