program new;
{$autoInvoke ON}
{$autoproperties ON}

function foo(): Int32;
begin

end;

var
  f: function:Int32;
begin
  f := @foo; //fails with autoproperties on
end.