var i: integer; type t1 = class private static function init_x: integer; begin Inc(i); end; private static x := init_x; end; begin new t1; assert(i = 1); assert(typeof(t1).GetConstructors( System.Reflection.BindingFlags.Static or System.Reflection.BindingFlags.NonPublic ).Length = 1); end.