Source position: googleqpxexpress.pp line 261
protected procedure TFareInfo.SetbasisCode(
AIndex: Integer;
const AValue: string
); virtual;