3042, в вашей версии вы добавили регион. Но лучше перенести в Init или в идеале в отдельную процедуру и вызывать из Init и из resize (который придётся добавить). Тогда регион будет присвоен один раз при создании (Init) и при изменении размеров контрола. Нет смысла колдовать регион каждый раз при рисовании.

  ScrBmp.Canvas.Brush.BrushStyle:= bsSolid;
  ScrBmp.Canvas.Brush.Color:= Color2RGB(Color);
  ScrBmp.Canvas.Rectangle(-1, -1, ScrBmp.Width + 1, ScrBmp.Height + 1);