/// Список в формате справочника
ClassMethod LoadSpr(BID As %Integer, GlobalName As %String, PropertyDescriptIndex As %Integer =  0 ) As %List
{
	s Rez = ""
	#;
	s ID = BID
	f {
		s ID = $o(@GlobalName@(ID), 1 ,lst)
		q:(ID="")
		#;
		s Descript = $case(PropertyDescriptIndex,  0 :ID, :$lg(lst,PropertyDescriptIndex))
		#;
		s tmp = $lb($lb(ID,Descript))
		q:($l(Rez)+$l(tmp) >  32000 )
		s Rez = Rez_tmp
	}
	#;
	q Rez
}

// Заполнить TStrings
function LoadSprToList(Strings: TStrings; ObjClass: Variant; GlobalName: string; PropertyDescriptIndex: Integer =  0 ): Integer;
var
 List, lst : Variant;
 i,n, id, RecCnt : Integer;
 descript : string;
begin
  Strings.Clear;
  //
  RecCnt :=  0 ;
  id :=  0 ;
  while (True) do
  begin
    List := ObjClass.LoadSpr(id,GlobalName,PropertyDescriptIndex);
    n := List.Count;
    if (n <=  0 ) then Break;
    //
    for i :=  1  to n do
    begin
      lst := List.ItemList[i];
      //
      id := lst.Item[ 1 ];
      descript := lst.Item[ 2 ];
      //
      Strings.AddObject(descript, Pointer(id));
      //
      Inc(RecCnt);
    end;
  end;
  //
  lst := Null;
  List := Null;
  //
  Result := RecCnt;
end;

var
 objClass : Variant;
 GlobalName : string;
...
objClass := Factory.Static('TEST.Report'); // Factory - объект CacheObject.Factory (для Cache  5 . 0 ) или CacheActiveX.Factory (для Cache  5 . 1 +)
GlobalName := '^["NAMESPACE"]GLOBAL';
...
LoadSprToList(ComboBox.Items, objClass, GlobalName);
...
objClass := Null;