Grades

2 formas

se voce usar um componentes QUery..

Select * Form TABELA Where campopesquisa = variavelpesquisa

ou se voce utiliza um componee Table

Defina a Propriedade FILTERED para True

depois click sobre o envento OnFilterRecord

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var
Accept: Boolean);

begin
Accept := DataSet[´CAMPOPESQUISA´] = VARIAVELPESQUISA;

end;