SQL Abfrageproblem

[Zyro]

Delphi-Quellcode:

for count:=0 to 10 do begin
MainQuery1.SQL.Add('Select KURZ from abfragen where ID='+inttostr(count)+'');
while not MainQuery1.Eof do
begin
     sqlkurz[count]:=MainQuery1.FieldByName('KURZ').AsString;
     MainQuery1.Next;
end;
end;

Kann mir jemand den Fehler sagen?! Denn leider scheint das Array sqlkurz leer zu bleiben.