[Страдалецъ]

Я вашем коде вообще не понимаю, зачем там грид. Сразу читайте и пишите данные, примерно так:

Код:

for i:= 1 to ADOQuery1.RecordCount -1 
do begin
    sheet.cells[i,1]:=adoquery1.FieldByName('name').AsString; 
    AdoQuery1.Next;   
    end;