Source position: googlemirror.pp line 231
published property TContact._type : string index 88 read F_type write Set_type;