Source position: googlestoragetransfer.pp line 312
protected procedure TDate.Setmonth(
AIndex: Integer;
const AValue: Integer
); virtual;