Из query в excel не все строки выводятся

RowCount := q_enk.RecordCount;
 
ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant); // задаем вариантный массив, который будем заполнять данными из ADOTable1
    q_enk.First;//заполняем массив значениями из ADOTable1
    for i := 1 to RowCount do
    begin
        ArrayData[i,1] := q_enk['date_post'];
        ...
        ArrayData[i,32] := q_enk['prim'];
 
 
        
        Q_enk.Next;
    end;
 
 
    Cell1 := XL.Cells[BeginRow-1, BeginCol];       // левая верхняя ячейка области в которую будем выводить данные
    Cell2 := XL.Cells[BeginRow+RowCount-1, BeginCol + ColCount-1];//правая нижняя ячейка области куда будем выводить данные
 
    for p:=1 to 100 do
  begin
    XL.Range[XL.Cells[BeginRow, BeginCol], Cell2].Value := ArrayData; //заполняем книгу нашими данными
    XL.Range[Cell1, Cell2].Borders.LineStyle := 1;
  ProgressBar1.Position:=p;
  ProgressBar1.Update
      end;

ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant); 
    q_enk.open;
    q_enk.last;
    q_enk.RecordCount;
 
    q_enk.First;
 
    while not q_enk.EOF do
 
    for i := 1 to q_enk.RecordCount-1 do
    begin
        ArrayData[i,1] := q_enk['date_post'];
        ...
        ArrayData[i,32] := q_enk['prim'];   
        Q_enk.Next;
    end;

i:=1;
q_enk.First;
while not q_enk.EOF do
begin
ArrayData[i,1] := q_enk['date_post'];
...
 
ArrayData[i,32] := q_enk['prim'];
inc(i);
Q_enk.Next;
end;