Увеличить диапазон календаря.

decodeDate(MonthCalendar1.Date,e,me,ke);
if e>101 then Combobox3.ItemIndex:=e-2001
else Combobox3.ItemIndex:=e;

str(mas_rol[i].time,s);
edit4.Text:=s; // 
edit5.Text:=mas_rol[i].owner;
combobox2.ItemIndex:=mas_rol[i].month;
combobox3.ItemIndex:=mas_rol[i].year;
 
str(mas_rol[i].month+1,s1);
decodedate(date,e,ie,ke);
str(mas_rol[i].year+2000,s);
Monthcalendar1.Date:=strtodate('1.'+s1+'.'+s);

for i:=1 to 29 do begin
suda:
  if (kols<number_setka)and
  (
  ((mas_bl[i+popr-1,y].hh_s*60+mas_bl[i+popr-1,y].mm_s<mas_set[kols+1].hh_s*60+mas_set[kols+1].mm_s)
    and
  (mas_bl[i+popr,y].hh_s*60+mas_bl[i+popr,y].mm_s>mas_set[kols+1].hh_s*60+mas_set[kols+1].mm_s))
  or
  ((i=1)
    and
  (mas_bl[i+popr+1,y].hh_s*60+mas_bl[i+popr+1,y].mm_s>mas_set[kols+1].hh_s*60+mas_set[kols+1].mm_s))
  )
   then begin

var 
   tmp,yy,mm,dd,dd2:word;
   s,ss1,ss2,s1:string;
Begin
  decodedate(datas,tmp,mm,dd);
  if tmp<101 then yy:=tmp else yy:=tmp+2000;