象没有case的record一样.无论case值为多少，没有实际意义。可以认为：
a:record
  case f:boolean of
  true:(x:byte);
  false:(y:byte)
end;
与
a:record
  f:boolean;
  x:byte;
end;
相同。
无论f为何值a.x=a.y(指向的地址一样)