[[felipe88]]

Usar las etiquetas [ delphi ][ /delphi ] sin los espacios...

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
// filtrar o localizar
if (not cbFiltrar.Checked) then begin
// Busqueda incremental
  ClientDataSet1.Locate('Campo4', Edit1.Text, [loCaseInsensitive, loPartialKey]);
Exit;
end
else begin
// esto sería para filtrar
  if (Edit1.Text = '') then 
    begin
      ClientDataSet1.Filtered := false;
      ClientDataSet1.Filter := '';
   end
else 
  begin
    ClientDataset1.Open;
    ClientDataSet1.Filter := '(Campo4 =' +QuotedStr(Edit1.Text) +') and (Campo5 = '+QuotedStr(Edit2.Text)+ ')';
    ClientDataSet1.Filtered := True;
  end;
end;
end;

Ahora... ¿seguro que le estas pasando bien el filtro?