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

procedure TForm8.SpeedButton1Click(Sender: TObject);
var i: integer;
begin
DataForm.ADOQuery3.SQL.Clear;
DataForm.ADOQuery3.SQL.Add('Select * from otvet');
DataForm.ADOQuery3.First;
for i := 0 to DataForm.ADOQuery3.RecordCount-1 do
begin
DataForm.ADOQuery1.SQL.Add('Select * from QDB where id like '+DataForm.ADOQuery3.FieldByName('random').AsString);
if DataForm.ADOQuery3.FieldByName('otvet').AsString=DataForm.ADOQuery1.FieldByName('correct').AsString then
ShowMessage('pravilno!');
DataForm.ADOQuery3.Open;
end;

procedure TForm8.SpeedButton1Click(Sender: TObject);
var i: integer;
begin
  DataForm.ADOQuery3.SQL.Clear;
  DataForm.ADOQuery3.SQL.Add('Select * from otvet');
    
  DataForm.ADOQuery3.Open; //пропущено выполнение запроса
 
  DataForm.ADOQuery3.First;
 // так циклы по набору данных не делают  for i := 0 to DataForm.ADOQuery3.RecordCount-1 do begin
  while not DataForm.ADOQuery3.EOF begin
    
    DataForm.ADOQuery1.SQL.Clear; // запрос будет разрастаться;
    DataForm.ADOQuery1.SQL.Add('Select * from QDB where id = '+DataForm.ADOQuery3.FieldByName('random').AsString);
    
    DataForm.ADOQuery1.Open; //пропущено выполнение запроса
    
    if DataForm.ADOQuery3.FieldByName('otvet').AsString=DataForm.ADOQuery1.FieldByName('correct').AsString then
    ShowMessage('pravilno!');
    
    // это здесь зачем? DataForm.ADOQuery3.Open;
    
    DataForm.ADOQuery.Next;  // где переход к следующей записи?
  end;  
    
end;

uses ..., Math;
...
DataForm.ADOQuery2.InsertRecord([inttostr(i), RandomRange(1, 834), nil]);