Source position: googlepartners.pp line 465
published property TCompany.name : string index 8 read Fname write Setname;