Planes constant

Planes : Array[0..MaxPlanes] of TPlanes = record
  ID : Byte;
  NM : string[40];
end
 = ((ID: 0; NM: 'Basic Multilingual Plane'), (ID: 1; NM: 'Supplementary Multilingual Plane'), (ID: 2; NM: 'Supplementary Ideographic Plane'), (ID: 3; NM: 'Tertiary Ideographic Plane'), (ID: 14; NM: 'Supplementary Special-purpose Plane'), (ID: 15; NM: 'Supplementary Private Use Area-A'), (ID: 16; NM: 'Supplementary Private Use Area-B'))