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