anchor.diff:          function IndexOfFilename(const Filename: string): Integer;
         end;
     private
  -    model: TStrings;
       parser: TLexicalModelParser;
       wordlists: TWordlists;
       frameSource: TframeTextEditor;
  
positive.code: function TfrmModelEditor.DoSaveFile: Boolean;
  var
    wordlist: TWordlist;
  begin
    if pages.ActivePage = pageSource then
    begin
  
negative.code: begin
    inherited;
    FreeAndNil(parser);
    FreeAndNil(wordlists);
  end;
  
  