Вывести в TEdit количество верных ответов тестирования

unit Unit5;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;
 
type
 
  { TForm5 }
 
  TForm5 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Label1Click(Sender: TObject);
 
  private
 
  public
 
  end;
  Type  ttest=record
vopros:string;
otvet: array [1..4] of string;
verno:integer;
    end;
 
    const max=5;
var
  Form5: TForm5;
   num:integer;
   a: array [1..max] of ttest;
 
implementation
    uses unit1;
{$R *.lfm}
 
{ TForm5 }
 
procedure TForm5.Button1Click(Sender: TObject);
var i:integer;
begin
 
   [B]IF Radiogroup1.ItemIndex + 1 = a[NUM].verno
   Then Edit1.Text := IntToStr(Radiogroup1.ItemIndex + 1);[/B]
 
    Edit2.text := IntToStr(NUM);
    Edit3.text := IntToStr(a[NUM].verno);
 
       inc(num);
 
   if num>max
   then button1.enabled:=false
   else begin
     memo1.lines.text:=a[num].vopros;
     for i:=1 to 4 do
     radiogroup1.Items[i-1]:=a[num].otvet[i];
   end;
end;
 
procedure TForm5.Button2Click(Sender: TObject);
begin
  form1.show;
  form5.close;
end;
 
 
procedure TForm5.FormActivate(Sender: TObject);
var i:integer;
 begin
   num:=1;
 
     a[1].vopros:='1 вопрос';
   a[1].otvet[1]:='1.1 вариант ответа';
   a[1].otvet[2]:='1.2 вариант ответа';
   a[1].otvet[3]:='1.3 вариант ответа';
   a[1].otvet[4]:='1.4 вариант ответа';
   a[1].verno:=1;
 
     a[2].vopros:='2 вопрос';
   a[2].otvet[1]:='2.1 вариант ответа';
   a[2].otvet[2]:='2.2 вариант ответа';
   a[2].otvet[3]:='2.3 вариант ответа';
   a[2].otvet[4]:='2.4 вариант ответа';
   a[2].verno:=2;
 
     a[3].vopros:='3 вопрос';
   a[3].otvet[1]:='3.1 вариант ответа';
   a[3].otvet[2]:='3.2 вариант ответа';
   a[3].otvet[3]:='3.3 вариант ответа';
   a[3].otvet[4]:='3.4 вариант ответа';
   a[3].verno:=3;
 
     a[4].vopros:='4 вопрос';
   a[4].otvet[1]:='4.1 вариант ответа';
   a[4].otvet[2]:='4.2 вариант ответа';
   a[4].otvet[3]:='4.3 вариант ответа';
   a[4].otvet[4]:='4.4 вариант ответа';
   a[4].verno:=4;
 
        a[5].vopros:='5 вопрос';
   a[5].otvet[1]:='5.1 вариант ответа';
   a[5].otvet[2]:='5.2 вариант ответа';
   a[5].otvet[3]:='5.3 вариант ответа';
   a[5].otvet[4]:='5.4 вариант ответа';
   a[5].verno:=1;
 
   memo1.lines.text:=a[num].vopros;
   for i:=1 to 4 do
   radiogroup1.Items[i-1]:=a[num].otvet[i];
 
end;
 
 
end.

var
  Form5: TForm5;
  TrueCount: integer; // <<== Объявляем

procedure TForm5.FormActivate(Sender: TObject);
var i:integer;
 begin
   num:=1;
   TrueCount := 0; // <<== Инициализируем

IF Radiogroup1.ItemIndex + 1 = a[NUM].verno Then
 begin
   Edit1.Text := IntToStr(Radiogroup1.ItemIndex + 1);
   inc(TrueCount); //<<== увеличиваем при правильном ответе
 end;