Fix FPs around qualified name references in ObjectPassedAsInterface

Author: cirras

CHANGELOG.md

@@ -11,6 +11,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 - Inaccurate type comparisons between class and interface types, where class-to-class upcasts were
   not always preferred over class-to-interface upcasts.
+- False-positives around qualified name references in `ObjectPassedAsInterface`.
 
 ## [1.18.0] - 2025-08-05
 

delphi-checks/src/main/java/au/com/integradev/delphi/checks/ObjectPassedAsInterfaceCheck.java

@@ -67,7 +67,7 @@ private static boolean isVariableWithClassType(ExpressionNode expression) {
       return false;
     }
 
-    var declaration = ((NameReferenceNode) maybeName).getNameDeclaration();
+    var declaration = ((NameReferenceNode) maybeName).getLastName().getNameDeclaration();
     if (!(declaration instanceof VariableNameDeclaration)) {
       return false;
     }

delphi-checks/src/test/java/au/com/integradev/delphi/checks/ObjectPassedAsInterfaceCheckTest.java

@@ -67,6 +67,44 @@ void testObjectPassedAsInterfaceShouldAddIssue() {
         .verifyIssues();
   }
 
+  @Test
+  void testInterfacePassedAsInterfaceShouldNotAddIssue() {
+    CheckVerifier.newVerifier()
+        .withCheck(new ObjectPassedAsInterfaceCheck())
+        .onFile(
+            new DelphiTestUnitBuilder()
+                .appendDecl("procedure DoThing(Intf: IInterface);")
+                .appendImpl("procedure Test;")
+                .appendImpl("var")
+                .appendImpl("  Intf: IInterface;")
+                .appendImpl("begin")
+                .appendImpl("  Intf := TInterfacedObject.Create;")
+                .appendImpl("  DoThing(Intf);")
+                .appendImpl("end;"))
+        .verifyNoIssues();
+  }
+
+  @Test
+  void testQualifiedInterfacePassedAsInterfaceShouldNotAddIssue() {
+    CheckVerifier.newVerifier()
+        .withCheck(new ObjectPassedAsInterfaceCheck())
+        .onFile(
+            new DelphiTestUnitBuilder()
+                .appendDecl("type")
+                .appendDecl("  TFoo = class")
+                .appendDecl("    property Intf: IInterface;")
+                .appendDecl("  end;")
+                .appendDecl("procedure DoThing(Intf: IInterface);")
+                .appendImpl("procedure Test;")
+                .appendImpl("var")
+                .appendImpl("  Foo: TFoo;")
+                .appendImpl("begin")
+                .appendImpl("  Foo := TFoo.Create;")
+                .appendImpl("  DoThing(Foo.Intf);")
+                .appendImpl("end;"))
+        .verifyNoIssues();
+  }
+
   @Test
   void testObjectCastToInterfaceShouldNotAddIssue() {
     CheckVerifier.newVerifier()