Source position: googlecontent.pp line 3621
protected procedure TProduct.SetloyaltyPoints(
AIndex: Integer;
const AValue: TLoyaltyPoints
); virtual;