1 2 3 4 5 6 7 8 9
{ %norun } program ChainBugTest; var v: Variant; begin v.GetOtherVariant.SomeProc; end.