[movnet]

Код:

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.ParamByName('date1').Value:=DTP_Ot.date;
 Query_Bol_List.Open;
end;