[Error]

Здравствуйте, подскажите, пожалуйста, как можно реализовать вставку содержимого из базы данных в StringGrid?
Вот код:

Код:

begin
repeat
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Text:='Select c1, c2, name From Data';
AdoQuery1.Open;
sg1.Cells[AdoQuery1.Fields[0].AsInteger,AdoQuery1.Fields[1].AsInteger]:=AdoQuery1.Fields[2].AsString;
until AdoQuery1.Eof;
end;

Одно значение выводит без проблем, то есть первую и вторую координаты и присваивает ячейке имя, а вот если сделать цикл, то виснет.