type
  t1 = class
    b: byte;
    function f1:=0;
  end;

begin
  
end.