[lmikle]

Ну, если уж на то пошло, то записи в cb одинаковые из-за ошибки в твоем коде его заполнения (кто будет на след. запись переключаться за тебя?)

Код:

procedure TForm3.FormCreate(Sender: TObject);
var
i:integer;
begin
ComboBox1.Items.Clear;
ComboBox1.Items.Add('Все');
DataModule2.RazDS.First;
While Not DataModule2.RazDS.EOF Do
  begin;
     Combobox1.Items.Add( DataModule2.RazDS.FieldByName('Раздел').AsString); //заносим название книги
     DataModule2.RazDS.Next;
  end;
end;