Почему не показывает список подразделений?

[Марина Гаврилюк]

Здравствуйте. Подскажите пжлст, как правильно описать процедуру выбора подразделений. Я написала так, но список пуст :
procedure DlgDepartmentsOnShow(Sender: TfrxComponent);
var 
  ind: integer;   
begin
  dtpStartDate.Date := EncodeDate(YearOf(Now), 1, 1); 
  dtpEndDate.Date := Date;
  CmbBox_Departments.Clear;
  //отбираем только подразделения предприятия
  dsRoleList.Filter := Format('_TYPE=%d', [2]);                                   
  dsRoleList.Filtered := True;
  if dsRoleList.RecordCount>0 then //если есть записи, создаем массив кодов подразделений
   begin
    SetLength(ID_Departments,dsRoleList.RecordCount);
   end;     
//   try
    dsRoleList.First;                                 
    try     
      // В цикле читаем подразделения                                                                                                                                                                                   
      While not dsRoleList.Eof do
       begin         
         ind:=CmbBox_Departments.Items.Add(dsRoleList.FieldByName('_NAME').AsString);//добавляем в список выбора                                                     
         if (ind>=0) and (ind<dsRoleList.RecordCount) then //если добавлено успешно                                                       
          begin                               
           ID_Departments[ind]:=dsRoleList.FieldByName('_ID').AsString; //записываем код добавленного поодразделения (сразу в текстовом формате для будущих фильтров                                                                                                                                                                                                                             
          end;                               
         dsRoleList.Next;
       end;
       if CmbBox_Departments.Items.Count>0 then //если есть данные, становимся на первую запись                                                                                                         
        CmbBox_Departments.ItemIndex:=0;                                                         
    except
     ShowMessage('Ошибка заполнения данных'); 
    end;           
//  finally                                             
                           
//  end; 
end;

Хотя в других отчетах с выбором по подразделению так же описано..... В чем хитрость?

Буду благодарна за подсказку.