* method pointers are also returned by parameter

git-svn-id: trunk@40702 -

packages/rtl-objpas/src/x86_64/invoke.inc

@@ -93,6 +93,7 @@ begin
   Result := False;
   if Assigned(aType) then begin
     case aType^.Kind of
+      tkMethod,
       tkSString,
       tkAString,
       tkUString,