[delphi-br] packed record com case

[Marcelo Luiz Onhate]

oq seria isso, não o record em si, mas para que serve e como funciona 
aquele case dentro do record...

  XXX = packed record
    case Integer of
      0: (A, B: Byte);
      1: (Bytes: array [0..1] of Byte);
  end;