Datenbank- Quiz programmieren

[Reedx]

hab es so programmiert, aber stehe immer noch vor dem gleichen Problem, beim click auf dem button bleibt die frage + Antworten immer die gleichen und zeigt nicht die nächsten an..

Delphi-Quellcode:

procedure TFormle.ButtonnextClick(Sender: TObject);
begin
 if lb.ItemIndex >=0 then
 begin
    rg.Visible:=true;
    Datamodule1.ADOQuery6.SQL.Clear;
    Datamodule1.ADOQuery6.SQL.Text:='SELECT Frage, L1, L2, L3 FROM Fragen WHERE Fach = ' +#39+lb.Items.Strings[lb.ItemIndex]+#39 +
                                    ' AND Schwierigkeit="1";';
    Datamodule1.ADOQuery6.Open;

     if Datamodule1.ADOQuery6.Eof then
     begin
       showmessage('Keine Daten');
     end else
     begin
      repeat
          //Frage in "Titel"
         rg.Caption:= Datamodule1.ADOQuery6.Fields[0].AsString;
         //Antworten in Radiobuttons
         rg.Items.Clear;
         rg.Items.Add(Datamodule1.ADOQuery6.Fields[1].AsString);
         rg.Items.Add(Datamodule1.ADOQuery6.Fields[2].AsString);
         rg.Items.Add(Datamodule1.ADOQuery6.Fields[3].AsString);
         Datamodule1.ADOQuery6.Next;
      until  Datamodule1.AdoQuery6.Eof;
     end;
  end else
  begin
  application.MessageBox('Auswahlfehler!','Fehler');
  end;