Adoquery ile çoklu filitreleme

edit3'e "AHMET;MEHMET" Girdiğimde "AHMET" ve "MEHMET" kayıtları listeleyebileyim
Yardımlarınız için şimdiden teşekkür ederim.

Memo1.Clear;
ADOQuery2.Close;
ADOQuery2.sql.Clear;
ADOQuery2.SQL.Add('SELECT * from Tablo WHERE (Tarih BETWEEN :Tar1 and :Tar2)');
ADOQuery2.Parameters.ParamByName('Tar1').Value := FormatDateTime('DD/MM/YYYY',DateTimePicker1.date);
ADOQuery2.Parameters.ParamByName('Tar2').Value := FormatDateTime('DD/MM/YYYY',DateTimePicker2.date);

if Edit3.Text<>'' then begin
ADOQuery2.SQL.Add(' and Adi in ('+QuotedStr(Edit3.Text)+')');
End;

Memo1.Lines.add(ADOQuery2.sql.text);
ADOQuery2.Open;