anchor.diff:      Align := alLeft;
     end;
   
  -  Memo1 := TRichTextView.Create(bvlBody);
  -  with Memo1 do
  -  begin
  -    Name := 'Memo1';
  +  RichView := TRichTextView.Create(bvlBody);
  +  with RichView do
  +  begin
  +    Name := 'RichView';
       SetPosition(368, 192, 244, 92);
       TabOrder := 2;
       Align := alClient;
  
positive.code:         end;
    end;
  
    Memo1.Clear;
    ImageIndices := TList.Create;
    ProfileEvent('Cleared memo...');
  
  
negative.code:   tvContents.Selection := nil;
    tvContents.RootNode.Clear;
    tvContents.Invalidate;
    RichView.Clear;
  
    // First save notes. It's important we do this first
    // since we scan all notes each time to find the ones
  