{ %norun }
program ChainBugTest;

var
  v: Variant;

begin
  v.GetOtherVariant.SomeProc;
end.