anchor.diff:  
     if not Focused then
       fpgCaret.UnSetCaret(Canvas);
  -    
  +
     // The little square in the bottom right corner
     if FHScrollBar.Visible and FVScrollBar.Visible then
     begin
  
positive.code: begin
    VHeight := Height - 4;
    HWidth  := Width - 4;
    
    if FVScrollBar.Visible then
      Dec(HWidth, FVScrollBar.Width);
    if FHScrollBar.Visible then
      Dec(VHeight, FHScrollBar.Height);
    
    FHScrollBar.Top     := Height -FHScrollBar.Height - 2;
    FHScrollBar.Left    := 2;
    FHScrollBar.Width   := HWidth;
  
negative.code:     RePaint
    else
      inherited;
  
    if hasChanged then
      if Assigned(FOnChange) then
        FOnChange(self);
  