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