Отчет в Excel c возможностью выбора периода дат

DM1.QROOMS2.SQL.Clear;
DM1.QROOMS2.SQL.Add('Select DISTINCT LA, Status From ROOMS WHERE (DV between :Prm1 AND :Prm2) and (Status<>:Prm3) Order By DV');
DM1.QROOMS2.Params.ParamByName('Prm1').Value:=MaskEdit1.Text;
DM1.QROOMS2.Params.ParamByName('Prm2').Value:=MaskEdit2.Text;
DM1.QROOMS2.Params.ParamByName('Prm3').Value:='C';
DM1.QROOMS2.Open;
DM1.QROOMS2.First;

{Проверяем даты}
 If StrToDate(MaskEdit1.Text)>StrToDate(MaskEdit2.Text) Then
 begin
 MessageDlg('Начальная дата '+Chr(13)+'не может быть больше конечной даты!', mtInformation, [mbOk], 0);
 MaskEdit1.SetFocus;
 exit;
 end;

procedure TForm8.MaskEdit1Exit(Sender: TObject);
var dt : TDateTime;
begin
    if not TryStrToDate(MaskEdit1.Text, dt) then
  begin
     ShowMessage('Не верно введена начальная дата - повторите ввод.');
     MaskEdit1.Text :='';
     MaskEdit1.SetFocus;
  end;
end;

{---Вывод в Excel журнала заказов---}
procedure TForm4.Button28Click(Sender: TObject);
var
   ExcelApp,Sheet,Colum:Variant;
   index,i:Integer;
begin
    If DateTimePicker1.Date >DateTimePicker2.Date Then
 begin
 MessageDlg('Начальная дата '+Chr(13)+'не может быть больше конечной!', mtInformation, [mbOk], 0);
 DateTimePicker1.SetFocus;
 exit;
 end;
    ExcelApp:=CreateOleObject('Excel.Application');
   ExcelApp.Application.EnableEvents:=False;
   ExcelApp.Workbooks.Add(-4167);
   ExcelApp.Workbooks[1].WorkSheets[1].Name:='Журнал заказов';
   ExcelApp.Range['A1:F1'].Select;
   ExcelApp.Selection.MergeCells:=True;
   ExcelApp.DisplayAlerts:=False;
 
   Colum:=ExcelApp.Workbooks[1].WorkSheets['Журнал заказов'].Rows;
   Colum.Rows[1].Font.Bold:=true;
   Colum.Rows[1].Font.Size:=18;
   Colum.Rows[2].Font.Bold:=true;
   Colum.Rows[2].Font.Size:=14;
   Colum.Rows.Font.Name:='Times New Roman';
 
   Sheet:=ExcelApp.Workbooks[1].WorkSheets['Журнал заказов'];
   Sheet.Cells[1,1]:='Журнал заказов';
   Sheet.Cells[1,1].HorizontalAlignment:=3;
   Sheet.Cells[2,1]:='Номер заказа';
   Sheet.Cells[2,1].HorizontalAlignment:=3;
   Sheet.Cells[2,2]:='Сотрудник';
   Sheet.Cells[2,2].HorizontalAlignment:=3;
   Sheet.Cells[2,3]:='Клиент';
   Sheet.Cells[2,3].HorizontalAlignment:=3;
   Sheet.Cells[2,4]:='Столик';
   Sheet.Cells[2,4].HorizontalAlignment:=3;
   Sheet.Cells[2,5]:='Дата';
   Sheet.Cells[2,5].HorizontalAlignment:=3;
   Sheet.Cells[2,6]:='Итого';
   Sheet.Cells[2,6].HorizontalAlignment:=3;
   //Задаем начальные значения DataTimePicker с разницей в 1 день от сегодняшнего числа
  // Form4.Caption:= DateToStr( DateTimePicker1.DateTime-1 );
  {  DateTimePicker1.Date:=Now();
    DateTimePicker1.Date:= DateTimePicker1.Date-1;
    Form4.Caption := DateToStr( DateTimePicker1.Date );
   }
     DataModule1.ADOQuery7.SQL.Clear;
   DataModule1.ADOQuery7.SQL.Text:='SELECT * FROM Журнал Where Дата between :p1 AND :p2';
 DataModule1.ADOQuery7.Parameters.ParamByName('p1').Value := DateToStr(DateTimePicker1.Date);
 DataModule1.ADOQuery7.Parameters.ParamByName('p2').Value := DateToStr(DateTimePicker2.Date+1);
   DataModule1.ADOQuery7.Open;
   index:=3;
   DataModule1.ADOQuery7.First;
   While NOT DataModule1.ADOQuery7.EOF Do
   begin
 //ShowMessage (DataModule1.ADOQuery7.Fields.Fields[9].AsString);
   Sheet.Cells[index,1]:=DataModule1.ADOQuery7.Fields.Fields[4].AsString;
   Sheet.Cells[index,2]:=DataModule1.ADOQuery7.Fields.Fields[5].AsString;
   Sheet.Cells[index,3]:=DataModule1.ADOQuery7.Fields.Fields[6].AsString;
   Sheet.Cells[index,4]:=DataModule1.ADOQuery7.Fields.Fields[7].AsString;
   Sheet.Cells[index,5]:=DataModule1.ADOQuery7.Fields.Fields[8].AsString;
   Sheet.Cells[index,6]:=DataModule1.ADOQuery7.Fields.Fields[9].AsString;
   Inc(index);
   DataModule1.ADOQuery7.Next;
end;
   ExcelApp.Columns.AutoFit;
   ExcelApp.Visible:=True;
   DataModule1.ADOQuery7.Close;
   DataModule1.ADOQuery7.SQL.Clear;
   DataModule1.ADOQuery7.SQL.Text:='SELECT * FROM Журнал';
   DataModule1.ADOQuery7.Open;
   
end;
procedure TForm4.FormShow(Sender: TObject);
begin
//Задаем начальные значения   DateTimePickers
  DateTimePicker1.Date:=Now();
    DateTimePicker1.Date:= DateTimePicker1.Date-1;
    DateTimePicker2.Date:=Now();
end;

  Sheet:=ExcelApp.Workbooks[1].WorkSheets['Журнал заказов'];
 Sheet.Cells[1,1]:='Журнал заказов за период c '+DateToStr(DateTimePicker1.Date)+' по '+DateToStr(DateTimePicker1.Date+1);

Sheet:=ExcelApp.Workbooks[1].WorkSheets['Журнал заказов'];
 Sheet.Cells[1,1]:='Журнал заказов за период c '+DateToStr(DateTimePicker1.Date)+' по '+DateToStr(DateTimePicker1.Date);

 Sheet.Cells[1,1]:='Журнал заказов за период c '+DateToStr(DateTimePicker1.Date)+' по '+DateToStr(DateTimePicker2.Date);