не работает SQL запрос (

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Active :=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT*');
ADOQuery1.SQL.Add('FROM Sotrudniki');
ADOQuery1.SQL.Add('WHERE Fam LIKE '''+Edit1.Text+'''');
ADOQuery1.SQL.Add('OR Imya LIKE '''+Edit2.Text+'''');
ADOQuery1.SQL.Add('OR Otch LIKE '''+Edit3.Text+'''');
ADOQuery1.Active := true;

Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('SELECT * FROM Sotrudniki WHERE (((Fam Like :A) and (Imya Like :B) and (Otch Like :C) and (DRZh >= :D) and (DRZh <= :E))) Order by Fam');
If Length(Form1.Edit1.Text) <> 0 then Form1.ADOQuery1.Parameters.ParamByName('A').Value:='%'+Form1.Edit1.Text+'%' else Form1.ADOQuery1.Parameters.ParamByName('A').Value:='%';
If Length(Form1.Edit2.Text) <> 0 then Form1.ADOQuery1.Parameters.ParamByName('B').Value:='%'+Form1.Edit2.Text+'%' else Form1.ADOQuery1.Parameters.ParamByName('B').Value:='%';
If Length(Form1.Edit3.Text) <> 0 then Form1.ADOQuery1.Parameters.ParamByName('C').Value:='%'+Form1.Edit3.Text+'%' else Form1.ADOQuery1.Parameters.ParamByName('C').Value:='%';
if Form1.DateTimePicker1.Format <> ' ' then Form1.ADOQuery1.Parameters.ParamByName('D').Value:=Form1.DateTimePicker1.Date else Form1.ADOQuery1.Parameters.ParamByName('D').Value:='%';
if Form1.DateTimePicker2.Format <> ' ' then Form1.ADOQuery1.Parameters.ParamByName('E').Value:=Form1.DateTimePicker2.Date else Form1.ADOQuery1.Parameters.ParamByName('E').Value:='%';
Form1.ADOQuery1.Open;