delphi dbgrid循环操作

dbgrid往下循环使用
error:error creating cursor handle
var j:integer;
A:for j:=1 to dbgrid1.columns.count-1 do
 
  ...
  dbgrid1.datasource.dataset.next;

  ---若使用for j:=1 to dbgrid1.datasource.dataset.recordcount-1 do
              ...
           dbgrid1.datasource.dataset.next
     则报以上错误。