Problemas con DBGrid

[[enecumene]]

Hola, lo puedes hacer usando filtros y/o LIKE:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      ADOTable1.Filtered := False;
      If RadioButton1.Checked = True then Filtro := 'campo1 Like ''' +Edit1.Text+ '*'''
         else If RadioButton3.Checked = True then Filtro := 'campo2 Like '''  +Edit1.Text+   '*'''
          else If RadioButton2.Checked = True then Filtro := 'campo3 Like '''  +Edit1.Text+   '*'''
            else If RadioButton4.Checked = True then Filtro := 'campo4 Like '''  +Edit1.Text+   '*''';
      ADOTable1.Filter := Filtro;
      ADOTable1.Filtered := True
   end
   else ADOTable1.Filtered := False;
end;

Eso lo tengo en el evento OnChange de un TEdit.

Saludos.