type
  t1 = class 
    a: record i: integer; end;   
    class function Get5 := 5;
    public class function Get6 := 6;
  end;

begin
end.