SQL запрос и DateTimePicker - Delphi БД

var
var
date1:String;
begin
ADOQuery1.SQL.Add('SELECT Товар.Название_товара, Направление.Дата_получения_продукции, Направление.Количество_полученной_продукии, Направление.[Название_организации/номер_цеха]
FROM Товар');
ADOQuery1.SQL.Add('INNER JOIN (Склад INNER JOIN (Направление INNER JOIN Накладная ON Направление.Номер_операции = Накладная.Номер_операции) ON Склад.Номер_ячейки_склада = Накладная.Номер_ячейки_склада) ON Товар.Код_товара = Склад.Код_товара='''+date1+'''');
ADOQuery1.Parameters.ParamByName('date1').Value:=(DateTimePicker1.Date);
ADOQuery1.Active:= true;

ADOQuery1.SQL.Add('SELECT Товар.Название_товара, Направление.Дата_получения_продукции, Направление.Количество_полученной_продукии, Направление.[Название_организации/номер_цеха] FROM Товар');
ADOQuery1.SQL.Add('INNER JOIN (Склад ON Склад.Номер_ячейки_склада = Накладная.Номер_ячейки_склада) '+
                                'INNER JOIN (Направление ON Направление.Номер_операции = Накладная.Номер_операции) '+
                                'INNER JOIN Накладная ON Товар.Код_товара = Склад.Код_товара)';
ADOQuery1.Active:= true;

var
date1:String;
begin
ADOQuery1.SQL.Add('SELECT Товар.Название_товара, Направление.Дата_получения_продукции, Направление.Количество_полученной_продукии, Направление.[Название_организации/номер_цеха]
FROM Товар');
ADOQuery1.SQL.Add('INNER JOIN (Склад INNER JOIN (Направление INNER JOIN Накладная ON Направление.Номер_операции = Накладная.Номер_операции) ON Склад.Номер_ячейки_склада = Накладная.Номер_ячейки_склада) ON Товар.Код_товара = Склад.Код_товара');
ADOQuery1.SQL.Add('WHERE Направление.Дата_получения_продукции='''+DateToStr(dateTimePicker1.Date)+'''');
ADOQuery1.Active:= true;