Unsopported operation en combobox

[giulichajari]

Hola amigos, tengo un combobox y un edit en un form junto a un dbgrid. Tengo varios items en el combobox y la idea es que al seleccionar un item, se filtre por lo que se vaya escribiendo en el edit, pero segun el criterio seleccionado en el combobox

Y obtengo el error unsopported operation.

El codigo:

Código Delphi [-]
procedure TForm2.ComboBox1Change(Sender: TObject);
var
titular:string;
i:integer;
begin
i:=ComboBox1.ItemIndex;
if (i=0) then
    begin

      with qcheques do
        begin
          Open;
          Filter:='titular like '''+QuotedStr(Edit4.Text)+'''*''';
          Filtered:=True;
          DBGrid1.DataSource.DataSet.Refresh;
        end;
    end
    else
    begin
      qcheques.Filtered:=False;
    end;

end;

Esta en el evento onchange del combo, agradezco su ayuda.