``` type TOnMsg=procedure(AMsg:string) of object; TMyObj = class private FAge: integer; procedure SetAge(const Value: integer); public property Age: integer read FAge write SetAge; // 不必用这种又臭又长的裹脚布 public Age2:integer; // 很多时候，这样就够了。 // Age2:integer 这样定义，还有机会写成 proeprty ,且不影响原来的调用的代码 public OnMsg:TOnMsg; end; // 向教条主义 say no ！！！ ```