Поставить оценку в тесте

[nomad512]

Пожалуйста помогите. Как сделать так чтобы тест выставлял оценку?

unit Unit4;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Data.DB,
  Data.Win.ADODB, JPEG;

type
  TForm4 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    Label2: TLabel;
    Label3: TLabel;
    Button3: TButton;
    Q1: TADOQuery;
    Image1: TImage;
    Button4: TButton;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private { Private declarations }
    sConnect : string;
    qCurrent, qCount, oVerno, nOtvet : integer;
    procedure DoSQL(_sql : string; Mode : integer);
    procedure FullPanel(nq : integer);
    function Check : boolean;
    function Obrabotka(q, a : integer) : integer;
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
 Panel1.Visible:=true;
 Image1.Visible:=true;
 FullPanel(qCurrent);
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
 Close;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
 if (not Check)
  then begin
        ShowMessage('Не выбран ни один вариант ответа. Повторите ввод!');
        Exit;
       end;
 inc(qCurrent);
 oVerno:=oVerno+Obrabotka(qCurrent-1,nOtvet);
 Label3.Caption:=Format('Отвечено на %d вопросов; правильных ответов - %d',[qCurrent-1,oVerno]);
 if qCurrent = qCount then Button3.Caption:='Готово';
 if qCurrent <= qCount
  then FullPanel(qCurrent)
  else begin
        ShowMessage(Format('Отвечено на %d вопросов; правильных ответов - %d',[qCurrent-1,oVerno]));
        Close;
       end;
       if qCount < 3  then showmessage('4')

end;

function TForm4.Check: boolean;
begin
 if RadioGroup1.ItemIndex = -1 then Result:=false else Result:=true;
end;

procedure TForm4.DoSQL(_sql: string; Mode: integer);
begin
 Q1.Close;
 Q1.SQL.Clear;
 Q1.SQL.Add(_sql);
 if Mode = 0 then Q1.Open else Q1.ExecSQL;
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
 sConnect:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
           ExtractFilePath(Application.ExeName) + 'DB.mdb' +
           ';Persist Security Info=False';
 DoSQL('SELECT * FROM DB.Question',0);
 Q1.Last;
 qCount:=Q1['ID'];
 qCurrent:=1;
 oVerno:=0;
 Label3.Caption:='';
 Image1.Picture:=nil;
end;

procedure TForm4.FullPanel(nq : integer);
var i : integer;
begin
 RadioGroup1.ItemIndex:=-1;
 Label1.Caption:='Вопрос № '+IntToStr(qCurrent);
 DoSQL('SELECT * FROM DB.Question WHERE ID = ' + IntToStr(qCurrent),0);
 Label2.Caption:=Q1['Texts'];
 DoSQL('SELECT * FROM DB.Otvets WHERE QID = ' + IntToStr(qCurrent), 0);
 Q1.First;
 for i := 0 to Q1.RecordCount-1 do
   begin
    RadioGroup1.Items.Strings[i] := Q1['Texts'];
    Q1.Next;
   end;

end;

function TForm4.Obrabotka(q, a: integer): integer;
var _s : string;
begin
 _s:=Format('SELECT * FROM DB.Otvets WHERE ((QID = %d) AND (OID = %d))',[q,a]);
 DoSQL(_s,0);
 Result:=Q1['Verno'];

 if not Result =3 then  showmessage ('5');
end;

procedure TForm4.RadioGroup1Click(Sender: TObject);
var s : string;
begin
 nOtvet:=RadioGroup1.ItemIndex;
 DoSQL(Format('SELECT * FROM DB.Otvets WHERE ((QID = %d) AND (OID = %d))',[qCurrent,nOtvet]),0);
 s:=ExtractFilePath(Application.ExeName)+Q1['Images'];
 Image1.Picture.LoadFromFile(s);
end;

end.

[itishnik]

сложная задачка, сейчас посмотрю

[nomad512]

Хорошо)))))

[Stilet]

Выставлял куда?