Source position: googlebooks.pp line 2273
protected procedure TVolumeTypesaleInfo.SetonSaleDate(
AIndex: Integer;
const AValue: TDatetime
); virtual;