Buscar por:

Pesquisa aprimorada

Código

//Aqui ele faz um filtro, mas também pega todos os campos que tiverem mais 

//do que o escrito, Ex: A pessoa escreve para procurar "Tes" e a tabelo possui 2 campos, um "tes" e outro "teste" no filtro irá aparecer os dois como resultado.

procedure TfrmPes.Button1Click(Sender: TObject);

var texto : string;

begin

    texto := edit1.Text + '*'; // aqui você poem o edit que a pessoa irá informar

//o que gostaria de pesqusiar

       Table1.Filter := 'Camp = ' + QuotedStr(texto);

       Table1.Filtered := true;

        end;

end;