Radiobuttons in einer Schleife erstellen!

[daNiii]

Delphi-Quellcode:

procedure tform1.radiobuttons_erstellen();
var
i, a: integer;
AutoButton: array [1..10] of tradiobutton;

begin
i:= 0;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.Add('Select * from Auto');
adoquery1.Open;
   while not adoquery1.eof do begin
        i:= i+1;
         AutoButton[i]:= tradiobutton.Create(self);
    AutoButton[i].top:= 80;
    AutoButton[i].width:= 113;
    AutoButton[i].caption:= 'd';
        adoquery1.next ;
     end;

    adoquery1.Close;
end;

Hallo!
Hier ist meine Schleife in der ich versuche, radiobuttons zu erstellen!
Problem: Das Programm wird nicht gestartet. Es scheint als gäbe es eine Endlosschleife! (ist aber nicht der Fehler).
Hinweis: in der Datenbank sind 3 Datensätze!
vl kann ja jemand den Fehler finden!