anchor.diff:      if dlg.RunSaveFile then
       begin
         memEditor.Lines.SaveToFile(dlg.FileName);
  +      UpdateStatus(Format('<%s> successfully saved.', [FFileName]));
       end;
     finally
       dlg.Free;
  
positive.code:     procedure miPasteClicked(Sender: TObject);
      procedure btnGOClick(Sender: TObject);
      procedure memEditorChanged(Sender: TObject);
    public
      procedure AfterCreate; override;
    end;
  
negative.code:     begin
        memEditor.Lines.LoadFromFile(dlg.FileName);
        FFileName := dlg.FileName;
        UpdateStatus(FFileName);
      end;
    finally
      dlg.Free;
  