1 2 3 4 5 6 7 8 9 10 11 12
unit variants; interface var Null: Variant; { Null standard constant } implementation initialization TVarData(Null).VType := varNull; end.