1:
2:
3:
4:
5:
6:
7:

type
  TBeispieldaten = record
    case integer of
      1: (dwTyp: DWord);
      1: (wTyp: array[0..1] of word);
      2: (bTyp: array[0..3] of byte);
  end;					

1:
2:
3:
4:
5:
6:
7:
8:

var
  BeispielDaten: TBeispieldaten;
  .
  .
  .  
  Beispieldaten.wTyp[0] := $0102;
  bDummy := Beispieldaten.bTyp[0];  Ergibt dann $01
  etc...