anchor.diff:      Align := alLeft;
     end;
   
  -  //Memo1 := TfpgMemo.Create(bvlBody);
  -  //with Memo1 do
  -  //begin
  -  //  Name := 'Memo1';
  -  //  SetPosition(276, 36, 244, 232);
  -  //  FontDesc := '#Edit1';
  -  //  TabOrder := 2;
  -  //  Align := alClient;
  -  //end;
     Memo1 := TRichTextView.Create(bvlBody);
     with Memo1 do
     begin
  
positive.code:   end;
  
    Memo1.Clear;
  //  Memo1.Lines.Clear;
    ImageIndices := TList.Create;
    ProfileEvent('Cleared memo...');
  
  
negative.code:   ImageIndices.Free;
  
    Memo1.AddText(PChar(lText));
  end;
  
  procedure TMainForm.ResetProgress;
  