帮忙分析一下？

程序的执行结果为什么是：230？
为什么"A:=B"不报错？
谢谢！
procedure TForm1.Button1Click(Sender: TObject);
type
  TSubrangeA = 1..100;
  TSubrangeB = 1..1000;
var
  A: TSubrangeA;
  B: TSubrangeB;
begin
  A := 100;  // 正确
  B := 998;  // 正确
// A := 998;  // 错误，子界越界，不能赋值}
  A := B;  // 错误，子界越界，不能赋值
  Label1.Caption := IntToStr(A);
end;