Filtros con TADOTable

[Lonidas]

Entonces no te compliques la vida y hazlo en un Query

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin

if edit1.Text ='' then  //**desactivo el filtro si no hay escrito nada
 begin
  Query1.Active:=false;
  Query1.SQL.Clear;
  Query1.SQL.Add('select descripcion from tabla1');
  Query1.ExecSQL;
  Query1.Active:=true;
  Query1.Refresh;
 end
else //**  Aca filtra sin importar si esta en mayuscula o minuscula
 begin
 Query1.Active:=false; 
 Query1.SQL.Clear;
 Query1.SQL.Add('select descripcion from tabla');
 Query1.SQL.Add('where descripcion like '+QuotedStr('%'+edit1.Text+'%'));
 Query1.SQL.Add(' or upper(descripcion) like upper('+QuotedStr('%'+edit1.Text+'%')+')');
 Query1.ExecSQL;
 Query1.Active:=true;
 Query1.Refresh;
 end;
end;

Saludos.....