anchor.diff:  
   procedure TfpgMemo.EndUpdate;
   begin
  -  Dec(FUpdateCount);
  +  if FUpdateCount > 0 then
  +    Dec(FUpdateCount);
     if FUpdateCount <= 0 then
     begin
       Invalidate;
  
positive.code:     RePaint
    else
      inherited;
      
    if hasChanged then
      if Assigned(FOnChange) then
        FOnChange(self);
  
negative.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;
  