anchor.diff:    inherited;
   
     fHeader.Width := Width;
  -  fScrollBar.Left := Left + Width - fItemHeight;
  +  fScrollBar.Left := Left + Width - fScrollBar.Width;
   end;
   
   
  
positive.code: procedure TKMMemo.SetWidth(aValue: Integer);
  begin
    inherited;
    fScrollBar.Left := Round(fLeft + fWidth) - 20;
    ReformatText; //Repositions the scroll bar as well
  end;
  
  
negative.code:   inherited;
  
    fHeader.Left := Left;
    fScrollBar.Left := Left + Width - fScrollBar.Width;
  end;
  
  
  