Source position: googlecompute.pp line 1635
protected procedure TDisksScopedList.Setwarning(
AIndex: Integer;
const AValue: TDisksScopedListTypewarning
); virtual;