list index out of bounds 0 при обращении к процедуре

[Egor2]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
    procedure GenerateNew;
    procedure GenerateResult;
    procedure GenerateLost;
   end;

  const
 Q = 'Вопрос ';
 O_k = 'Правильно';
 _of = ' из ';
 win1 = 'Вы успешно прошли тест';
 win2 = 'Поздравляем';
 lost2 = 'Неверно';
 lost1 = 'Вы не прошли тест';

var
  Form1: TForm1;
  s: string;
  n: integer;
  num:integer;
  ri:integer;

implementation

{$R *.dfm}
  procedure TForm1.GenerateNew;
  var k: String;
 begin
   begin
   inc(num);
   label1.Caption:= Q+inttostr(num)+_of+inttostr(N);
   readln(k); label2.Caption:= k;
   readln(k); RadioGroup1.Items.Strings[0]:= k;
   readln(k); RadioGroup1.Items.Strings[1]:= k;
   readln(k); RadioGroup1.Items.Strings[2]:= k;
   readln(k); RadioGroup1.Items.Strings[3]:= k;
   RadioGroup1.Buttons[ri].Checked:= false;
   readln(ri);
  end
 end;

  procedure TForm1.GenerateResult;
  begin
   label1.Caption:= win2;
   label2.Caption:= win1;
   label3.Visible:= false;
   button1.Visible:= false;
   radiogroup1.Visible:= false;
  end;

  procedure TForm1.Button2Click(Sender: TObject);
begin
closefile(input);
form1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 s:= 'e:\test\text123.txt';
assignfile (input,s);
readln(n);
     if (N>0) then
   GenerateNew
  else
   begin
    closefile(input);
    form1.Close
   end;
end;

procedure TForm1.GenerateLost;
  begin
   label1.Caption:= lost2;
   label2.Caption:= lost1;
   label3.Visible:= false;
   button1.Visible:= false;
   radiogroup1.Visible:= false;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 If (RadioGroup1.Buttons[ri].Checked) and (num<N) then
 begin
  label3.Caption:= Q+inttostr(num)+' - '+O_k;
  GenerateNew;
 end

  else
   if (num=N) and (RadioGroup1.Buttons[ri].Checked) then
    GenerateResult

     else
      if (not RadioGroup1.Buttons[ri].Checked) then
       GenerateLost;
end;


end.

выделяет строку GenerateNew

begin
 s:= 'e:\test\text123.txt';
assignfile (input,s);
readln(n);
     if (N>0) then
   GenerateNew
  else
   begin
    closefile(input);
    form1.Close
   end;

[Stilet]

выделяет строку GenerateNew

Не удивительно.

RadioGroup1.Buttons[ri].Checked:= false;

Чему ri на этой строке равно, когда выполняется считка из файла?
Может ты местами попутал, и нужно так:

   
   readln(ri);
RadioGroup1.Buttons[ri].Checked:= false;

[Egor2]

Нет, проблему не решило

overloaded procedures must be marked with the 'overload' directive
вообщем он начал вот так ругаться

Сообщение от Egor2

overloaded procedures must be marked with the 'overload' directive
вообщем он начал вот так ругаться

объявлено в паблике

[BDA]

Имхо, вы использовали имя процедуры 2 раза или задали такое имя, которое уже использовано в других юнитах. Покажите весь код, может вы что-то еще поменяли по сравнению с выложенным кодом?

Кстати, свое сообщение можно редактировать 24 часа с момента опубликования

[Egor2]

Сообщение от BDA

Имхо, вы использовали имя процедуры 2 раза или задали такое имя, которое уже использовано в других юнитах. Покажите весь код, может вы что-то еще поменяли по сравнению с выложенным кодом?

Только зашел отписаться! два раза объявил просто)

[Egor2]

Проблему решил-посмеялся.
Я на форме в радиогрупп линии не сделал.)