anchor.diff:      begin
         memEditor.Lines.LoadFromFile(dlg.FileName);
         FFileName := dlg.FileName;
  +      UpdateStatus(FFileName);
       end;
     finally
       dlg.Free;
  
positive.code:       ShowMessage(e.Message);
    end;
  }
  end;
  
  procedure TMainForm.AfterCreate;
  
negative.code:     if dlg.RunSaveFile then
      begin
        memEditor.Lines.SaveToFile(dlg.FileName);
        UpdateStatus(Format('<%s> successfully saved.', [FFileName]));
      end;
    finally
      dlg.Free;
  