Описание константы типа запись

Имеется объявление:
type  TCPMMachinesEnum = (Atm, Scorpion, Profi, Quorum, Korvet, Korvet2, Orion, Orion2);  TCPMMachines = Set of TCPMMachinesEnum;  CPMDPH = record//Стандартный DPH    len: byte;//Размер сектора 0=128, 1=256, 2=512, 3=1024    den: byte;//Количество сторон -1    sec: word;//Секторов/трек    trk: word;//Количество треков  end;  CPMDPB = record//Стандартный DPB    spt: word;//Записей (128 байт) на трек    bsh: byte;//Блок=128*2^bsh    blm: byte;//Блок=128*(blm+1)    exm: byte;//Экстент (0=16k, 1=32k, 3=64k, 7=128k)    dsm: word;//Число блоков -1    drm: word;//Емкость каталога-1    al: word;//Маска блоков оглавления    cks: word;//Размер каталога (байт)/128    off: word;//Количество системных дорожек  end;  ImgParam = record//Параметры образа    Machine: TCPMMachines;//Модель компьютера    Comment:string;//Подробнее о модели    DPH: CPMDPH;//Стандартный DPH    DPB: CPMDPB;//Стандартный DPB    Size: integer;//Размер образа    SecSize: integer;//Размер сектора = len (0=128, 1=256, 2=512, 3=1024)    TrkNum: integer;//Число дорожек - (den+1)*trk  end;                        
Необходимо обявить несколько констант типа ImgParam, заполняя все поля.Как это сделать?
1 ответ

Решено вот так.
const  AtmStd:ImgParam = (Machine:[Atm];//Модель компьютера    Comment:'CP/M ATM';//Подробнее о модели    DPH:(len:$01;den:$01;sec:$10;trk:$50);//Стандартный DPH    DPB:(spt:$0020;bsh:$04;blm:$0F;exm:$00;dsm:$013A;drm:$007F;al:$00C0;cks:$0020;off:$0002);//Стандартный DPB    Size:$0A0000;//Размер образа    SecSize:$100;//Размер сектора = len (0=128, 1=256, 2=512, 3=1024)    TrkNum:$A0//Число дорожек - (den+1)*trk    ); 
Спасибо за внимание.