Тест ПДД: выбранные ответы из RadioGroup1 записывать в БД

unit Unit8;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw, Vcl.ExtCtrls,
  Vcl.StdCtrls, Vcl.Buttons, Vcl.ComCtrls;
 
type
  TForm8 = class(TForm)
    Image1: TImage;
    Memo6: TMemo;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    RadioGroup1: TRadioGroup;
    SpeedButton2: TSpeedButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button32: TButton;
    Button33: TButton;
    Button34: TButton;
    Button35: TButton;
    Button36: TButton;
    Button37: TButton;
    Button38: TButton;
    Button39: TButton;
    Button40: TButton;
    procedure MyClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
 
  private
 
    { Private declarations }
  public
 
    { Public declarations }
  end;
 
var
  Form8: TForm8;
  C_button : TButton;
  i, ans, q_num: integer;
implementation
 
{$R *.dfm}
uses Unit9;
 
procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataForm.ADOQuery1.SQL.Clear;
DataForm.ADOQuery1.SQL.Add('drop TABLE test');
DataForm.ADOQuery1.ExecSQL;
C_button.Free;
end;
 
procedure TForm8.SpeedButton2Click(Sender: TObject);
begin
DataForm.ADOConnection1.Close;
DataForm.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'data.mdb;Persist Security Info=False;';
DataForm.ADOQuery1.SQL.Clear;
DataForm.ADOQuery1.SQL.Add('select * from `QDB`');
DataForm.ADOQuery1.Open;
 
DataForm.ADOQuery1.SQL.Clear;
DataForm.ADOQuery1.SQL.Add('CREATE TABLE test (id VARCHAR( 43 ) NOT NULL, random VARCHAR( 43 ) NOT NULL, otvet VARCHAR( 43 ));');
DataForm.ADOQuery1.ExecSQL;
 
for I := 1 to 40 do
  begin
    {{C_button := TButton.Create(Self);
    C_button.Parent := Form8;
    C_button.Caption:= inttostr(i);
    C_button.Name:='btn'+inttostr(i);
    C_button.width:=30;
    C_button.height:=30;
    C_button.OnClick:=myclick;
 
    if i<=20 then
      begin
        C_button.Left:=10+30*(i-1);
        C_button.Top:=10;
      end
        else
          begin
            C_button.Left:=10+30*(i-21);
            C_button.Top:=50;
          end; }
    DataForm.ADOQuery2.SQL.Clear;
    DataForm.ADOQuery2.SQL.Add('select * from `Test`');
    DataForm.ADOQuery2.Open;
    DataForm.ADOQuery2.Edit;
    DataForm.ADOQuery2.Insert;
    DataForm.ADOQuery2.InsertRecord([inttostr(i), random(833), nil]);
    DataForm.ADOQuery2.Edit;
    DataForm.ADOQuery2.Post;
 
 
 
  end;
end;
 
procedure TForm8.MyClick(Sender: TObject);
begin
DataForm.ADOQuery3.SQL.Clear;
DataForm.ADOQuery3.SQL.Add('select * from `Test` where id like '+TButton(Sender).Caption+';');
DataForm.ADOQuery3.Open;
q_num:=DataForm.ADOQuery3.FieldByName('random').AsInteger;
DataForm.ADOQuery3.SQL.Clear;
DataForm.ADOQuery3.SQL.Add('select * from `QDB` where Id like '+IntToStr(q_num)+';');
DataForm.ADOQuery3.Open;
 
Image1.Picture:=nil;
RadioGroup1.ItemIndex:=-1;
RadioGroup1.Items.Clear;
Memo6.Text:=DataForm.ADOQuery3.FieldByName('Question').AsString;
 
for ans := 1 to 5 do
if DataForm.ADOQuery3.FieldByName('Answer'+inttostr(ans)).AsString<>'' then
  RadioGroup1.Items.Add(DataForm.ADOQuery3.FieldByName('Answer'+inttostr(ans)).AsString);
 
  Image1.Picture.Assign(DataForm.ADOQuery3.FieldByName('picture'));
end;
 
end.

procedure TForm8.RadioGroup1Click(Sender: TObject);
begin
  DataForm.ADOQuery3.SQL.Clear;
  DataForm.ADOQuery3.SQL.Add('update `Test` SET  otvet = ' + IntToStr(RadioGroup1.ItemIndex + 1) + ' where id like '+TButton(Sender).Caption+';');
  DataForm.ADOQuery3.SQL.ExeсSQL;
end;

DataForm.ADOQuery3.SQL.Add('update `Test` SET  otvet = ' + IntToStr(RadioGroup1.ItemIndex + 1) + ' where id like '+IntToStr(q_num)+';');

DataForm.ADOQuery3.SQL.Add('update `Test` SET  otvet = ' + IntToStr(RadioGroup1.ItemIndex + 1) + ' where random like '+IntToStr(q_num)+';');

DataForm.ADOQuery3.SQL.Clear;
DataForm.ADOQuery3.SQL.Add(
  'SELECT COUUNT (*) DROM Test JOIN QDB ON Test.random = QDB.Id AND Test.otvet = QDB.Correct ;'
); 
DataForm.ADOQuery3.Open;
// DataForm.ADOQuery3.Fields[0].asXXXX - здесь кроется количество правильных ответов, остальные - неправильные или неотвеченные