Source position: googlecalendar.pp line 1000
protected procedure TFreeBusyCalendar.Setbusy(
AIndex: Integer;
const AValue: TFreeBusyCalendarTypebusyArray
); virtual;