Как бы это мягче сказать.. Окрошка в общем.
Таr попробуйте:
Код:
AdoQuery1.Close;
AdoQuery1.SQL.Text:='Select c1, c2, name From Data';
AdoQuery1.Open;
while not AdoQuery1.Eof
do begin
sg1.Cells[AdoQuery1.Fields[0].AsInteger,AdoQuery1.Fields[1].AsInteger] := AdoQuery1.Fields[2].AsString;
Query1.Next;
end;