anchor.diff:  
   procedure TEditorFrame.DoFileClose;
   begin
  +  //clear adapters
     Lexer[Ed1]:= nil;
     if not EditorsLinked then
       Lexer[Ed2]:= nil;
  
positive.code:   FFileName2:= '';
    UpdateCaptionFromFilename;
  
    if Assigned(FBin) then
    begin
      FBin.OpenStream(nil);
      FreeAndNil(FBin);
  
      if Assigned(FBinStream) then
  
negative.code:     Ed1.Show;
    end;
  
    //clear picture
    if Assigned(FImageBox) then
    begin
      FreeAndNil(FImageBox);
      Ed1.Show;
    end;
  
    //clear editors
    EditorClear(Ed1);
    if not EditorsLinked then
      EditorClear(Ed2);
  