Source position: googlepartners.pp line 629
protected procedure TRank.Set_type(
AIndex: Integer;
const AValue: string
); virtual;