Cxgrid filter by code

procedure TForm1.Button3Click(Sender: TObject);
 var
 AItemList: TcxFilterCriteriaItemList;
begin
 drIlaclistesiDBTableView1.DataController.Filter.BeginUpdate;
 try
 drIlaclistesiDBTableView1.DataController.Filter.Root.Clear;
 AItemList := drIlaclistesiDBTableView1.DataController.Filter.Root.AddItemList(fboAnd);
 AItemList.AddItem(drIlaclistesiDBTableView1ILACADI, foLike, '*%', '*%');
 AItemList.AddItem(drIlaclistesiDBTableView1MIKTARI, foGreater, '0', '0');
 finally
 drIlaclistesiDBTableView1.DataController.Filter.EndUpdate;
 drIlaclistesiDBTableView1.DataController.Filter.Active := true;
 end;
end;