type t1 = class function f1 := 5; end; begin end.