Source position: googlegroupssettings.pp line 56
protected procedure TGroups.SetarchiveOnly(
AIndex: Integer;
const AValue: string
); virtual;