anchor.diff:    ch0:= '?';
     mi0:= nil;
   
  -  mi:= TMenuItem.create(self);
  -  mi.caption:= msgNoLexer;
  -  mi.OnClick:= @MenuLexClick;
  +  mi:= TMenuItem.Create(self);
  +  mi.Caption:= msgNoLexer;
  +  mi.OnClick:= @MenuLexerClick;
     AMenu.Add(mi);
   
  -  sl:= tstringlist.create;
  +  sl:= TStringList.Create;
     try
       //make stringlist of all lexers
       for i:= 0 to AppManager.AnalyzerCount-1 do
  
positive.code:   MsgStatus(msgStatusEncChanged);
  end;
  
  procedure TfmMain.MenuLexClick(Sender: TObject);
  var
    an: TecSyntAnalyzer;
  begin
  
negative.code:         AMenu.Add(mi0);
        end;
  
        mi:= TMenuItem.Create(self);
        mi.Caption:= sl[i];
        mi.Tag:= PtrInt(sl.Objects[i]);
        mi.OnClick:= @MenuLexerClick;
        if Assigned(mi0) then
          mi0.Add(mi)
        else
          AMenu.Add(mi);
      end;
    finally
      sl.Free;
    end;
  end;
  
  