[ecfisa]

Hola.

Probá en este órden:

Código Delphi [-]
  DBGrid1.DataSource.DataSet.First; 
  While not (DBGrid1.DataSource.DataSet.Eof) Do
  begin
    ...
    query.ExecSQL;
    DBGrid1.DataSource.DataSet.Next;
  end;

Saludos.