Add(ScrollBar,11553522,322,105)
{
 Left=40
 Top=20
 Width=300
 TabOrder=1
 Point(onMouseWheel)
 link(onMouseWheel,12063207:doCalc,[(365,118)(365,83)(254,83)(254,111)])
}
Add(ScrollBar,11301914,322,182)
{
 Left=40
 Top=55
 Width=300
 TabOrder=1
 Point(onMouseWheel)
 link(onMouseWheel,14751406:doCalc,[(365,195)(365,160)(254,160)(254,188)])
}
Add(MathParse,14751406,266,182)
{
 MathStr="%1/20 + %2"
 ResultType=0
 link(onResult,11301914:doPosition,[])
 link(X2,11301914:Position,[(279,170)(307,170)(307,226)(328,226)])
}
Add(MathParse,12063207,266,105)
{
 MathStr="%1/20 + %2"
 ResultType=0
 link(onResult,11553522:doPosition,[])
 link(X2,11553522:Position,[(279,93)(307,93)(307,149)(328,149)])
}

#pas
procedure THIScrollBar.Update;
begin
   si.fMask := SIF_RANGE or SIF_PAGE or SIF_POS;
   si.nMax := _prop_Max + integer(_prop_Page) - 1;
   SetScrollInfo(Control.Handle,SB_CTL,si,false);
   Control.Invalidate; // эта строка у меня добавлена !!!!!!!!!
end;