Source position: googlemirror.pp line 229
published property TContact.source : string index 72 read Fsource write Setsource;