Source position: googleconsumersurveys.pp line 152
protected procedure TSurvey.Setcost(
AIndex: Integer;
const AValue: TSurveyCost
); virtual;