anchor.diff:    end;
   
     Memo1.Clear;
  -//  Memo1.Lines.Clear;
     ImageIndices := TList.Create;
     ProfileEvent('Cleared memo...');
   
  
positive.code:     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
  
negative.code:   ImageIndices.Free;
  
    Memo1.AddText(PChar(lText));
  end;
  
  procedure TMainForm.ResetProgress;
  