anchor.diff:  
   procedure TEditorEngine.RemoveNotifyEngine(ANotifyObject: INotifyEngine);
   begin
  -  if FNotifyObject <> ANotifyObject then
  +  if (FNotifyObject <> nil) and (FNotifyObject <> ANotifyObject) then
       raise Exception.Create('NotifyObject not exists');
     FNotifyObject := nil; //TODO if list we should remove it
   end;
  
positive.code: finalization
    FreeAndNil(FEngine);
  end.
  
negative.code:   if FullFilter then
    begin
      if Result <> '' then
        Result := 'All files (Supported)|' + aSupported + '|' + Result;
  
      if Result <> '' then
        Result := Result + '|';
  