Type
TMeuRecord = record
Campo1 : integer;
Campo2 : string;
end;
===== Declarando e preenchendo uma constante que seja um array do record criado =====
CONSTANTE : array[0..1] of TMeuRecord = ( (Campo1 : 1;
Campo2 : 'Valor1'),
(Campo1 : 2;
Campo2 : 'Valor2')
);