Ошибка "Identifier not found"

type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
 
  public
 
  end;
 
var
  Form1: TForm1;
f: text;
s: string;
Nvern, ball, nvern1: integer;
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 } 
procedure TForm1.Button2Click(Sender: TObject);
begin
 RadioGroup1.Enabled:=true; //Доступным становится поле с вопросом
 Button1.Enabled:=true; //Кнопка Далее
 AssignFile( f ,'input.txt');
 end;
begin
 reset(f); //Открываем файл для чтения
 readln(f,s); //Считываем первую строку из файла
 ball:=0; //изначально количество баллов 0
 repeat
 if (s[1]='-') then begin //Если первый символ строки ‘-‘ значит это вопрос
 delete(s,1,1);
 RadioGroup1.Caption:=s; // <--- *****
 end
 else if s[1]='*' then begin //Если перв символ ‘*’ значит это номер верного ответа
 delete(s,1,1);
Nvern:=StrToInt(s);
end
else if s[1]='/' then begin //Если перв символ ‘*’ значит это номер верного ответа
 delete(s,1,1);
Nvern1:=StrToInt(s);
end
 else RadioGroup1.Items.Add(s); //Иначе это вариант ответа
 readln(f,s); //Считываем следующую строку из файла
 until (s[1]='-') or (Eof(f)); //Считывание и отправление вариантов ответов в RadiGroup до тех пор
// пока не достигнут следующий вопрос или конец файла
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//Если выбран вариант ответа и не достигнут конец файла
 if (RadioGroup1.ItemIndex>-1) and (not Eof(f)) then begin
 if RadioGroup1.ItemIndex = Nvern-1 then ball:=ball+10;
 if RadioGroup1.ItemIndex = Nvern1-1 then ball:=ball+5;//Если выбранный вариант соответствует
 RadioGroup2.Items.Clear; //номеру верного ответа то балл прибавляется
 Repeat //и очищается поле для следующего вопроса
 if (s[1]='-') then begin
 delete(s,1,1);
 RadioGroup1.Caption:=s;
 end
 else if s[1]='*' then begin
 delete(s,1,1);
 Nvern:=StrToInt(s);
end
 else RadioGroup1.Items.Add(s);
 readln(f,s);
 Label1.Caption:=s;
 until (s[1]='-') or (Eof(f));
 end
//Если конец файла достигнут, значит вопросы закончились
 Else if Eof(f) then begin
 delete(s,1,1);
 Nvern:=StrToInt(s);
 if RadioGroup1.ItemIndex = Nvern-1 then ball:=ball+1;
 Label1.Caption:=IntToStr(ball); //Вывод количества баллов
 CloseFile(f);
 Button1.Enabled:=False; //кнопка становится недоступной в завершении проекта
 end;
end;
end.

begin
 reset(f); //Открываем файл для чтения
 readln(f,s); //Считываем первую строку из файла
 ball:=0; //изначально количество баллов 0
 repeat
 if (s[1]='-') then begin //Если первый символ строки ‘-‘ значит это вопрос
 delete(s,1,1);
 RadioGroup1.Caption:=s; // <--- *****
 end
 else if s[1]='*' then begin //Если перв символ ‘*’ значит это номер верного ответа
 delete(s,1,1);
Nvern:=StrToInt(s);
end
else if s[1]='/' then begin //Если перв символ ‘*’ значит это номер верного ответа
 delete(s,1,1);
Nvern1:=StrToInt(s);
end
 else RadioGroup1.Items.Add(s); //Иначе это вариант ответа
 readln(f,s); //Считываем следующую строку из файла
 until (s[1]='-') or (Eof(f)); //Считывание и отправление вариантов ответов в RadiGroup до тех пор
// пока не достигнут следующий вопрос или конец файла
end;