for i:=0 to PechatUdNormForm.TehProcessComboBox.items.count-1 do begin
    with PechatUdNormForm.ADOQuery1 do begin
     Close;
     SQL.Clear;
     SQL.Add('select unr.obm, n051s.nam, n051s.mar, n051s.ram, n051s.gsm, ');
     sql.Add('n051s.gss, unr.unr1, unr.kets, unr.ets, n051s.cenp, unr.unr1*n051s.cenp as cen ');
     sql.Add('from unr INNER join [O:\dbf\n051s.DBF] on n051s.obm=unr.obm ');
     sql.add('where tpr='+QuotedStr(PechatUdNormForm.TehProcessComboBox.items.Strings[i]));
     Open;
    end;
     end;

index:=2;
  for i:=0 to PechatUdNormForm.TehProcessComboBox.items.count-1 do begin
      excl.ActiveSheet.Cells(index,1):='Технологическая операция'+' '+PechatUdNormForm.TehProcessComboBox.items.Strings[i]+' '+PechatUdNormForm.ListBox1.Items.Strings[i];
      excl.cells[index,1].WrapText:=false;
      index:=index+PechatUdNormForm.ADOQuery1.RecordCount+3;
  end;

  index:=3 ;
.......

   FData:=VarArrayCreate([1,PechatUdNormForm.ADOQuery1.RecordCount,1,PechatUdNormForm.ADOQuery1.Fields.Count],varVariant);
  // Заполняем массив
   PechatUdNormForm.ADOQuery1.First;
   k:=1;
   while not PechatUdNormForm.ADOQuery1.Eof do
    begin
       for j:=1 to PechatUdNormForm.ADOQuery1.Fields.Count do begin
       FData[k,j]:=PechatUdNormForm.ADOQuery1.Fields[j-1].Value;
       end;
       k:=k+1;
        PechatUdNormForm.ADOQuery1.Next;
    end;

    index:=4;
    for i := 0 to PechatUdNormForm.TehProcessComboBox.items.count-1 do begin
    Excl.Range[Excl.ActiveSheet.Cells[4, 1], Excl.Cells[PechatUdNormForm.ADOQuery1.RecordCount+3, PechatUdNormForm.ADOQuery1.Fields.Count]].Value:=FData;
    end;