anchor.diff:        '.rst':
           FLexer:= 'reStructuredText';
         else
  -        exit;
  +        FLexer:= 'none'
       end;
  +
  +    Label1.Caption:= Format('File "%s", Lexer "%s"', [ExtractFileName(FFileName), FLexer]);
   
       UpdateTree;
     end;
  
positive.code:   begin
      FFileName:= OpenDialog1.FileName;
      Ed.LoadFromFile(FFileName);
      Label1.Caption:= ExtractFileName(FFileName);
  
      case ExtractFileExt(FFileName) of
        '.md':
  
negative.code: 
  procedure TForm1.UpdateTree;
  begin
    FTree.Items.Clear;
    FData.Clear;
    TreeHelperInPascal(Ed, FLexer, FData);
    ApplyTreeHelperInPascal(Ed, FLexer, FTree, FData);
  