Konstanten-Deklaration eines mehrdimensionalen Arrays

[TiGü]

Danke, so geht's!
Trotzdem verhält sich der Compiler ein bisschen Muttihaft!

Delphi-Quellcode:

type
  TSoundAddressData = record
    Address : Integer;
    Data : Integer;
  end;

  TSoundSourceRange = 1..3;
  TChannelRange = 1..8;

  TSoundSources = array [TSoundSourceRange] of TSoundAddressData;
  TSoundChannels = array [TChannelRange] of TSoundSources;

const
  CHANNELS : TSoundChannels =
    (
      ( // CHANNEL_1
        (Address : $0; Data : $01), // NF1
        (Address : $0; Data : $02), // NF2
        (Address : $0; Data : $04)  // NF3
      ),
      ( // CHANNEL_2
        (Address : $0; Data : $08),
        (Address : $0; Data : $10),
        (Address : $0; Data : $20)
      ),
      ( // CHANNEL_3
        (Address : $0; Data : $40),
        (Address : $0; Data : $80),
        (Address : $1; Data : $01)
      ),
      ( // CHANNEL_4
        (Address : $1; Data : $02),
        (Address : $1; Data : $04),
        (Address : $1; Data : $08)
      ),
      ( // CHANNEL_5
        (Address : $1; Data : $10),
        (Address : $1; Data : $20),
        (Address : $1; Data : $40)
      ),
      ( // CHANNEL_6
        (Address : $1; Data : $80),
        (Address : $2; Data : $01),
        (Address : $2; Data : $02)
      ),
      ( // CHANNEL_7
        (Address : $2; Data : $04),
        (Address : $2; Data : $08),
        (Address : $2; Data : $10)
      ),
      ( // CHANNEL_8
        (Address : $2; Data : $20),
        (Address : $2; Data : $40),
        (Address : $2; Data : $80)
      )
    );

Jetzt muss ich nur noch rausfinden, wie ich den Formatter so einstelle, dass er mir die Einrückungen nicht mehr wegmacht.