anchor.diff:      //for i := 0 to f.DictionaryCount-1 do
       //  Add('[' + IntToStr(i) + '] = <' + f.DictionaryWords[i] + '>');
     end;
  -  Memo1.AddText(PChar(sl.Text));
  -//  Memo1.Lines.EndUpdate;
  +  RichView.AddText(PChar(sl.Text));
     sl.Free;
   end;
   
  
positive.code:   i: integer;
    sl: TStringList;
  begin
    Memo1.Clear;
    sl := TStringList.Create;
    f := THelpFile(Files[0]);
    with sl do
  
negative.code:     Align := alLeft;
    end;
  
    RichView := TRichTextView.Create(bvlBody);
    with RichView do
    begin
      Name := 'RichView';
      SetPosition(368, 192, 244, 92);
      TabOrder := 2;
      Align := alClient;
  