Помогите! Не работает запрос (DateTimePicker)

procedure TForm6.Button2Click(Sender: TObject);
begin
DataSource1.DataSet:=Query1;

try

with Query1 do
begin
close;
sql.Clear;
sql.Add('Select *');
sql.Add('From adm');
sql.Add('Where adm.Fam_istez=:Fam_istez1 or Fam_otvet=:Fam_otvet1 or Fam_sud=:Fam_sud1');
sql.Add( 'or Ul=:Ul1 or Solution=:Solution1 or Date=:Date1');
ParamByName('Fam_istez1').AsString:=Edit1.Text;
ParamByName('Fam_otvet1').AsString:=Edit2.Text;
ParamByName('Fam_sud1').AsString:=ComboBox1.Text;
ParamByName('Ul1').AsString:=ComboBox2.Text;
ParamByName('Solution1').AsString:=ComboBox3.Text;
ParamByName('Date1').AsDateTime:=DateTimePicker1.D ate;  
open;
end;


except
on error: EDatabaseError do begin
MessageDlg('Ïðè âûïîëíåíèè çàïðîñà ïðîèçîøëà îøèáêà:'+#13+#13+
error.Message ,mtError,[mbOK],0);
end;
end;
end;