No puedo filtrar por dos campos

[bLiNdEN]

Hola muy buenas tardes tengan ustedes...

Estoy haciendo una base de datos donde tengo que filtrar dos campos a la vez pero no puedo y quisisera saber como hacerles, miren, esto es lo que estoy haciendo:

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;

y pues nomas no lo filtra.... por favor quien me pueda ayudar se lo agradeceria bastante.