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:       s := StringReplace(s, 'file://', '', []);
      memEditor.LoadFromFile(s);
      FFilename := s;
      UpdateStatus(FFilename);
    end;
  end;
  
  