Unsopported operation en combobox

[giulichajari]

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;