Delphi类即使空参数列表,如何括号内完成?