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

{---Вывод в Excel журнала заказов---}
procedure TForm4.Button28Click(Sender: TObject);
var
   ExcelApp,Sheet,Colum:Variant;
   index,i:Integer;
   ChDateAmount: Integer;//Переменная для накопления итоговой суммы по чекам из запроса
begin
    If DateTimePicker1.Date >DateTimePicker2.Date Then
 begin
 MessageDlg('Начальная дата '+Chr(13)+'не может быть больше конечной!', mtInformation, [mbOk], 0);
 DateTimePicker1.SetFocus;
 exit;
 end;
   ChDateAmount:=0;
. . . 
 
 Sheet.Cells[index,5]:=DataModule1.ADOQuery7.Fields.Fields[8].AsString;
   Sheet.Cells[index,6]:=DataModule1.ADOQuery7.Fields.Fields[9].AsString;
   ChDateAmount:=ChDateAmount+StrToInt(DataModule1.ADOQuery7.Fields.Fields[9].AsString);
   Inc(index);
   DataModule1.ADOQuery7.Next;
end;
  //Выводим сумму по всем чекам
   Sheet.Cells[index+1,1]:='Общая сумма всех заказов за период';
   Sheet.Cells[index+1,6]:=IntToStr(ChDateAmount);
   Sheet.Cells[index+1,1].Font.Bold:=true;
   Sheet.Cells[index+1,1].Font.Size:=14;
    Sheet.Cells[index+1,6].Font.Bold:=true;
   Sheet.Cells[index+1,6].Font.Size:=14;
   ExcelApp.Columns.AutoFit;
   ExcelApp.Visible:=True;
   //Возвращаем запрос в исходное состояние
   DataModule1.ADOQuery7.Close;
   DataModule1.ADOQuery7.SQL.Clear;
   DataModule1.ADOQuery7.SQL.Text:='SELECT * FROM Журнал';
   DataModule1.ADOQuery7.Open;
 
end;