Скорость заполнения из dbgid в stringgrid

procedure TForm3.N7Click(Sender: TObject);
var
i200, j200:Integer;
begin
      ADOQuery3.Active:=False;
      AdoQuery3.SQL.Clear;
      ADOQuery3.SQL.Text:='SELECT COUNT (*) FROM Products;';
      ADOQuery3.Active:=true;
 
 
      if not ADOQuery3.Eof then
         begin
           if not ADOQuery3.FieldByName('Expr1000').IsNull then
           begin
             dbCountInt23:=ADOQuery3.fieldbyname('Expr1000').AsInteger;
           end
           else
           begin
           ShowMessage('Ошибка! При выборке данных 00EX0CN');
           end;
         end;
         ADOQuery3.Close;
         StringGrid2.RowCount:=2;
         StringGrid2.RowCount:=dbCountInt23 +1;
 
  AdoQuery3.Close;
  AdoQuery3.SQL.Clear;
  AdoQuery3.SQL.Add('SELECT Products.Kod, Products.Articul, Products.Positions, Products.Cols, Products.Warehouse, Products.PresentPrice, Products.Comment FROM Products;');
  ADOQuery3.Open;
 
 
  j200 := 1;
 DBGrid1.DataSource.DataSet.First;
  while not DBGrid1.DataSource.DataSet.Eof do
  begin
    for i200 := 0 to DBGrid1.Columns.Count -1 do
    begin
     StringGrid2.Cells[0,0]:='КОД';
     StringGrid2.Cells[1,0]:='АРТИКЛ';
     StringGrid2.Cells[2,0]:='НАИМЕНОВАНИЕ ПОЗИЦИИ';
     StringGrid2.Cells[3,0]:='КОЛИЧЕСТВО';
     StringGrid2.Cells[4,0]:='СКЛАД';
     StringGrid2.Cells[5,0]:='ЦЕНА';
     StringGrid2.Cells[6,0]:='КОМЕНТАРИЙ';
     StringGrid2.Cells[i200, j200] := DBGrid1.DataSource.DataSet.Fields[i200].AsString;
     //------------------------------------->
    Form3.Repaint;
    StringGrid2.Repaint;
    end;
    Inc(j200);
    DBGrid1.DataSource.DataSet.Next;
   end;
   end;

ADOQuery3.Open;
j200 := 1;
ADOQuery3.First;
while not ADOQuery3.Eof do
begin
...
ADOQuery3.Next;

  S : string;
begin
  ...
  StringGrid2.Cells[0,0]:='КОД';
  StringGrid2.Cells[1,0]:='АРТИКЛ';
  StringGrid2.Cells[2,0]:='НАИМЕНОВАНИЕ ПОЗИЦИИ';
  StringGrid2.Cells[3,0]:='КОЛИЧЕСТВО';
  StringGrid2.Cells[4,0]:='СКЛАД';
  StringGrid2.Cells[5,0]:='ЦЕНА';
  StringGrid2.Cells[6,0]:='КОМЕНТАРИЙ';
 
  j200 := 1;
  DBGrid1.DataSource.DataSet.First;  
  while not DBGrid1.DataSource.DataSet.Eof do begin
    S := '';
    for i200 := 0 to DBGrid1.Columns.Count -1 do
      S := S + DBGrid1.DataSource.DataSet.Fields[i200].AsString + '|';
 
    StringGrid2.Rows[j200].Delimiter := '|';
    StringGrid2.Rows[j200].DelimitedText := S;
    Inc(j200);
    DBGrid1.DataSource.DataSet.Next;
  end;
...

procedure TForm1.Button1Click(Sender: TObject);
var
  S : string;
  C, R, T : Integer;
begin
  T := GetTickCount;
  IBDatabase1.Open;
  Query.Open;
  R := 1;
  while not Query.Eof do begin
    S := IntToStr(R)+'|';
    for C := 0 to 5 do
      SG.Cells[C, R] := Query.Fields[C].AsString;
    Query.Next;
    Inc(R);
  end;
    //вывод времени затраченное на всю операцию (~800 мсек)
  Label1.Caption := IntToStr(GetTickCount - T); 
  IBDatabase1.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  S : string;
  C, R, T : Integer;
begin
  T := GetTickCount;
  ADOConnection1.Open;
  ADOQuery1.Open;
  R := 1;
  while not ADOQuery1.Eof do begin
    S := '';
    for C := 0 to 5 do
      SG.Cells[C, R] := ADOQuery1.Fields[C].AsString;
 
    ADOQuery1.Next;
    Inc(R);
  end;
  Label1.Caption := IntToStr(GetTickCount - T);
  ADOQuery1.Close;
  ADOConnection1.Close;
end;