Source position: googlemirror.pp line 231
published property TContact.kind : string index 40 read Fkind write Setkind;