1type
    2
    3  TCatalogForm= record
    4    iFormID:Integer;
    5    fViewer:TFormClass;
    6  end;
    7
    8const
    9  glMAX_Catalogs = 2;
   10  gCatalogForms:array [0..Catalogs -1] of TCatalogForm=(
   11    ( iCatalog:gl_Editor;  fViewer:TfrmEditor),
   12    ( iCatalog:gl_Viewer;  fViewer:TfrmViewer)
   13  );