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