unit u_staticconstr1; type cls = class public static i: integer; static constructor; begin i := 1; end; end; begin end.