anchor.diff:  begin
     inherited;
     FreeAndNil(parser);
  -  FreeAndNil(model);
     FreeAndNil(wordlists);
   end;
   
  
positive.code:         function IndexOfFilename(const Filename: string): Integer;
        end;
    private
      model: TStrings;
      parser: TLexicalModelParser;
      wordlists: TWordlists;
      frameSource: TframeTextEditor;
  
negative.code: { TfrmModelEditor }
  
  function TfrmModelEditor.DoOpenFile: Boolean;
  var
    model: TStringList;
  begin
    model := TStringList.Create;
    try
      model.DefaultEncoding := TEncoding.UTF8;
      try
        model.LoadFromFile(FileName);
      except
        on E:EEncodingError do
        begin
          try
            model.LoadFromFile(FileName, TEncoding.Default);
          except
            on E:EEncodingError do
            begin
              ShowMessage('Could not load file, does not appear to be a valid encoding.');
              Exit(False);
            end;
          end;
        end;
      end;
      parser := TLexicalModelParser.Create(model.Text);
    finally
      model.Free;
    end;
  
    wordlists := TWordlists.Create;
  
    Inc(FSetup);
  