[[Caral]]

Hola
Hagamos lo asi:
No me has dicho que componente usas para conectarte, pero, bueno:

procedure TFBuscaCliente.Edit1Change(Sender: TObject);
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
      Query1.Filtered := False;
      If Combobox1.Text = 'dni' then Filtro := 'dni Like ' Edit1.Text
         else If Combobox1.Text = 'Nombre' then Filtro := 'Nombre Like '''  Edit1.Text   '*'''
            else If Combobox1..Text = 'Teléfono' then Filtro := 'Telefono Like '''  Edit1.Text   '*''';
      Query1.Filter := Filtro;
      Query1.Filtered := True
   end
   else Query1.Filtered := False;
end;

Por Cierto, Gracias Roman, queda muy bien.
Saludos