anchor.diff:  
   procedure TfmLexerStyleMap.FormCreate(Sender: TObject);
   begin
  +  Localize;
     ItemsLex:= TStringlist.Create;
     ItemsTh:= TStringlist.Create;
     ItemsVal:= TStringlist.Create;
  
positive.code:   for i:= 0 to ItemsLex.Count-1 do
      ListLex.Items[i]:= ItemsLex[i] + cArrow + IfThen(ItemsVal[i]<>'', ItemsVal[i], '?');
    ListLex.Items.EndUpdate;
  end;
  
  
  
negative.code: 
    F:= TfmLexerStyleMap.Create(nil);
    try
      F.LexerName:= an.LexerName;
      F.Caption:= F.Caption + ' - ' + F.LexerName;
  
  