qrZapros.Close;
        qrZapros.ParamByName('kod').Value:=DBLookupComboBox1.KeyValue;
        qrZapros.ParamByName('dat1').Value:=DBDateTimeEditEh3.Text;
        qrZapros.Open;

        if not qrZapros.IsEmpty then
          begin
           m:=6;
           Update;
           Cursor:=crHourGlass;
           exl:=CreateOleObject('Excel.Application');
           Workbook:=exl.Application.WorkBooks.Add(ExtractFilePath(Application.ExeName)+'report.xls');
           Sheet:=WorkBook.WorkSheets[1];
           p:=qrZapros.FieldCount;
           while not qrZapros.EOF do
             begin
              for j:=0 to p-1 do
                 Sheet.Cells(m,j+2):=qrZapros.Fields.Fields[j].Value;
              inc(m);
              qrZapros.Next;
             end;
           exl.Application.Visible:=True;
          end;