REF CURSOR fra Delphi?

Er der nogen der har en stump Delphi kode som kan kalde en Oracle funktion? (Funktionen skal returnere en REF CURSOR)

Jeg har vedlagt min Oracle funktion, da jeg ikke er helt sikker på om der er fejl i den.
--------------------------------------------------------
CREATE OR REPLACE PACKAGE TestPack AS
TYPE VAR_RS IS REF CURSOR;
FUNCTION F_RRSet(VAR_OS_ID IN NUMBER) RETURN TestPack.VAR_RS;
END TestPack;

CREATE OR REPLACE PACKAGE BODY TestPack AS
      FUNCTION F_RRSet(VAR_OS_ID IN NUMBER) RETURN TestPack.VAR_RS IS
      VAR_RESULT TestPack.VAR_RS;
      BEGIN
            OPEN VAR_RESULT FOR SELECT OS_NAME FROM OS WHERE OS_ID <> VAR_OS_ID;
          RETURN VAR_RESULT;
      END F_RRSet;
END TestPack;
--------------------------------------------------------
På forhånd tak :-)