问当用作TCheckBox.Data时，TValue无效的类型传送

EN

复制步骤：

-new防火墙-应用程序

-add TCheckBox格式

现在使用以下代码创建一个方法：

procedure TForm1.Foo;
var a,b:Integer; lVal:TValue;
begin
  lVal:=TValue.From<Integer>(42);
  a:=lVal.AsInteger;
  checkbox1.Data:=TValue.From<Integer>(42);
  b:=checkbox1.Data.AsInteger;
end;   

使用lVal的强制转换运行时没有问题，但是，即使它也是一个TValue，在调用AsInteger时也会抛出一个"EInvalidCast"-Error。使用checkbox1.data.AsType<Integer>时也会出现相同的错误。

我是在这里误用了TCheckBox.Data，还是这是某种错误？