Index: JvInterpreter.pas
===================================================================
--- JvInterpreter.pas	(revision 10628)
+++ JvInterpreter.pas	(working copy)
@@ -4237,7 +4237,21 @@
       end;
       if Result then
         Exit;
-    end; 
+    end
+    else
+    if Args.ObjTyp = varDispatch then
+    { Ole automation call }
+    begin
+      {$IFDEF JvInterpreter_OLEAUTO}
+      Result := DispatchCall(Identifier, Value, Args, True);
+      if Result then begin
+        Args.ReturnIndexed := True;
+        Exit;
+      end;
+      {$ELSE}
+      NotImplemented(RsOleAutomationCall);
+      {$ENDIF JvInterpreter_OLEAUTO}
+    end;
   end
   else
   begin