Source position: googleqpxexpress.pp line 544
protected procedure TSegmentPricing.SetsegmentId(
AIndex: Integer;
const AValue: string
); virtual;