Source position: googlemirror.pp line 471
protected procedure TSubscription.Setkind(
AIndex: Integer;
const AValue: string
); virtual;