Bueno cambie de lugar el codigo lo coloque en el evento onchange del edit.
Ahora funciona, pero gracias igual.
Código Delphi
[-]procedure TForm2.Edit4Change(Sender: TObject);
var
titular:string;
i:integer;
fecha:string;
begin
i:=ComboBox1.ItemIndex;
if (i=0) then
begin
with qcheques do
begin
Open;
Filter:='titular Like''' + (Edit4.Text)+ '*''';
Filtered:=True;
DBGrid1.DataSource.DataSet.Refresh;
end;
end
else
if (i=1) then
begin
with qcheques do
begin
Open;
Filter:='nombreyape like '''+Edit4.Text+'*''';
Filtered:=True;
DBGrid1.DataSource.DataSet.Refresh;
end;
end
else
begin
qcheques.Filtered:=False;
end;
end;