anchor.diff:    private
       { private declarations }
       FOnDeleteLexer: TAppStringEvent;
  +    procedure DeletePackagesIniSection(const ALexerName: string);
       procedure Localize;
       procedure UpdateList;
     public
  
positive.code:   List.SetFocus;
  
    NIndex:= List.ItemIndex;
    if NIndex<0 then exit;
    an:= List.Items.Objects[NIndex] as TecSyntAnalyzer;
  
    if MsgBox(
  
negative.code:     DeleteFile(AppFile_Lexer(an.LexerName));
      DeleteFile(AppFile_LexerMap(an.LexerName));
      DeleteFile(AppFile_LexerAcp(an.LexerName));
      DeletePackagesIniSection(an.LexerName);
  
      AppManager.DeleteLexer(an);
      AppManager.Modified:= true;
  