Не работает параметрический запрос(SQL)(Delphi)

[Never74]

Здравствуй, у меня возникла проблема. Пытаюсь сделать параметрический запрос но ни чего не выходит. Использую компонент Query (таблицу .db).
Через компонент параметры не хотят создаваться, то есть кнопки создания не горят.Сам код такой.

Пытаюсь сделать запрос для сравнения с 1 датой.

with DataModule_Poc_0 do Begin
Query_Bol_List.Close;
Query_Bol_List.SQL.Clear;
Query_Bol_List.SQL.Add('Select * from San2_Bol_List Where Data_Nach_Bol_List=date1');
Query_Bol_List.Params[0].Name:='data1';
Query_Bol_List.ParamByName('date1').Value:=DTP_Ot.date;
Query_Bol_List.Open;
end;

За помощь заранее спасибо

[Stilet]

Data_Nach_Bol_List=:date1

Двоеточие упустил )

Query_Bol_List.Params[0].Name:='data1';

Эта строка не обязательна.