Filtrado de dos datos en ado

[gdlrinfo]

Hola amigos necesito Filtrar dos datos en ado por ejemplo yo tengo un calendario donde filtro por fecha y anda perfecto lo uso de esta manera

Código Delphi [-]
 var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      Consul.Filtered := False;
      If 'Nombre' = 'Nombre' then Filtro := 'Fecha Like '''+DateToStr (monthcalendar1.Date)+ '*''' ;
        Consul.Filter := Filtro                                         ;
        Consul.Filtered:=True;                                          ;
   end
   else Consul.Filtered := False;
end;

Se preguntaran porque deje el if ese ahi sin necesidad es que este codigo lo uso para muchas otras cosas entonces solo le quite lo que no necesitaba no por otra cosa:
Ahora bien necesito que una ves que este filtrada la fecha pueda tambien filtrar nombres sin que se me salga el filtro de la fecha he probado quitando else Consul.Filtered := False; y haciendo otro filtro con el edit de la misma manera pero al filtrarme los nombres me saca el filtro de la fecha espero su respuesta y muchas gracias como siempre

[[Caral]]

Hola
Es un filtro.
Si quieres que haga dos cosas a la vez, no lo hará.
Se tiene que hacer un filtro por cada cosa que se necesite.
Saludos