举例说明变体记录的用法?

Question

//系统类型
(*
  TRect = packed record
    case Integer of
      0: (Left, Top, Right, Bottom: Longint);
      1: (TopLeft, BottomRight: TPoint);
  end;
*)
procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Left := ClientRect.TopLeft.X; //Button1.Left := ClientRect.Left;
end;//自定义类型
procedure TForm1.Button1Click(Sender: TObject);
type
  TByteChar = record
    case Boolean of
      False: (rChar: Char);
      True: (rByte: Byte);
  end;
var
  vByteChar: TByteChar;
begin
  vByteChar.rByte := 97;
  ShowMessage(vByteChar.rChar);
end;//把她理解成同一个空间保存两种类型

Answer 1

我就是不明白这里面的CASE，按字面意思是当...时才可以具有什么样的域，但是程序中应用时，根本也没有对取值进进判断就直接赋值了，至于点同一空间，我倒是明白些，和C里面一样。

Answer 2

case是干什么用的啊？请高人指点吧，我就这儿不明白。