Простой тест в Delphi

[Nicole]

Ребята, очень прошу помочь. Написала рабочую программу, представляющую собой тест из 5 вопросов. Не знаю, как теперь сформировать подсчет набранных баллов за выбранные ответы (их надо вывести в конце теста) и как исправить следующий недочет: при выборе неверного варианта ответа прога пишет то же, что и когда не выбран ни один вариант ответа.
Архив с прогой прилагается.

[JUDAS]

до lost1 = 'Ну ты и тупая овца!!! .... включительно, всё тоже самое

далее 

var
  Form1: TForm1;
  N    : Integer;
  num  : Integer;
  ri   : Integer;
  Scope : integer;

implementation


{$R *.dfm}

procedure TForm1.GenerateNewQ;
  var S: String;
 begin
 begin
   inc(num);
   label1.Caption:= Q+inttostr(num)+_of+inttostr(N);
   readln(S); label2.Caption:= S;
   readln(S); RadioGroup1.Items.Strings[0]:= S;
   readln(S); RadioGroup1.Items.Strings[1]:= S;
   readln(S); RadioGroup1.Items.Strings[2]:= S;
   readln(S); RadioGroup1.Items.Strings[3]:= S;
   RadioGroup1.Buttons[ri].Checked:= false;
   readln(ri);
  end
 end;

 procedure TForm1.GenerateResult;
 begin
  case Scope of
   0,1 :  label1.Caption:= lost1;
   2..5 : label1.Caption:= win1+' '+win2;
  end;

  label2.Caption:= format('Из %d угадал %d вопросов',[N,Scope]);
  label3.Visible:= false;
  button1.Visible:= false;
  radiogroup1.Visible:= false;
  end;

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

procedure TForm1.FormCreate(Sender: TObject);
begin
 num:= 0;
 assignfile(input,'test.txt');
 readln(N);
 if (N>0) then
   GenerateNewQ
  else
   begin
    closefile(input);
    form1.Close
   end;
  Scope := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if RadioGroup1.ItemIndex=-1 then
 begin
   ShowMessage('Вы не выбрали вариант ответа!');
   exit;
 end;
 inc(Scope, byte(RadioGroup1.ItemIndex=ri));

 If (num<N) then
 begin
  label3.Caption:= Q+inttostr(num)+' - '+O_k;
  GenerateNewQ;
 end else
 GenerateResult;

end;

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

end.

[Nicole]

Спасибо большое.