7 

     7 

     8 function schemeByName(s: shortstring): PScheme;

     8 function schemeByName(s: shortstring): PScheme;

     9 procedure sendSchemeConfig(var scheme: TScheme);

     9 procedure sendSchemeConfig(var scheme: TScheme);

    10 

    10 

    11 implementation

    11 implementation

    13 

    13 

    14 const MAX_SCHEME_NAMES = 64;

    14 const MAX_SCHEME_NAMES = 64;

    15 type

    15 type

    16     TSchemeArray = array [0..0] of TScheme;

    16     TSchemeArray = array [0..0] of TScheme;

    17     PSchemeArray = ^TSchemeArray;

    17     PSchemeArray = ^TSchemeArray;