Filtro Numerico y String con Like y ADO me Urge!!! por favor :(

[ivantj24]

Hola que tal muchisimas gracias por ayudarme , pero el problema persiste, me sale el mismo error
Argumentos Incorrectos, fuera del intervalo permitido o en conflicto con otros.

y enserio no entiendo ni por que, ya he hecho muchos cambios y nada, le he intentad de todas formas y nada, por cierto, solo cambie una pequenia parte al codigo que me enviaste, quite el Open, y lo deje como Active:= True; lo mismo con Close;. pero de todas formas ni haciendo eso me lo resolvio. intente tal y como me lo enviaste y nada, se agradece mucho la ayuda enserio, solo que el problema persiste como decia

Asi queda el codigo y nada

Código Delphi [-]
procedure TfrmTicket.btnBuscarClick(Sender: TObject);
const
  FILTRO = '(TicketID) LIKE ''*%d*'') OR (Usuario) LIKE (''*%s*'')';
var
  sCad:string;
  Tiq : Integer;
  Usu : String;
begin
  if edtBuscar.Text<> '' then
    with ADOTableTicket do
    begin
      //Close;
      Active:= False;
      Filtered:= False;
      sCad := Format(FILTRO, [Tiq, usu]);
      Filter:= sCad;
      Filtered:= True;
      Active:= True;
      //Open;
    end
end;