#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;