Ну и введи первую запись "Все" в а фильтре проверяй так:
Код:
procedure TForm3.ComboBox1Change(Sender: TObject);
begin
DataModule2.RazDS.filter:='Раздел = '+QuotedStr(Combobox1.text); //фильтруем записи по названию
DataModule2.RazDS.Filtered :=ComboBox1.ItemIndex > 1;
end;