Add AnonymousMethodNode::isProcedure

Author: cirras

delphi-frontend/src/main/java/au/com/integradev/delphi/antlr/ast/node/AnonymousMethodNodeImpl.java

@@ -74,6 +74,11 @@ public boolean isFunction() {
     return getRoutineKind() == RoutineKind.FUNCTION;
   }
 
+  @Override
+  public boolean isProcedure() {
+    return getRoutineKind() == RoutineKind.PROCEDURE;
+  }
+
   @Override
   public String getImage() {
     if (image == null) {

delphi-frontend/src/main/java/org/sonar/plugins/communitydelphi/api/ast/AnonymousMethodNode.java

@@ -31,4 +31,6 @@ public interface AnonymousMethodNode extends ExpressionNode {
   RoutineKind getRoutineKind();
 
   boolean isFunction();
+
+  boolean isProcedure();
 }