MyRec : array [0..0] of TMyRec =
   ((aa:'テスト';bb:0;cc:True));