Source position: msepopupcalendar.pas line 58
procedure tpopupcalendarfo.yearup(
const sender: TObject
);