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