delphi如何调用oracle的存储过错并返回记录集

Question

我想用delphi调用oracle的存储过程并返回记录集,那位大虾能给我提供个例子(包括连接,调用,显示),以下是我使用的包程序
  
  CREATE OR REPLACE PACKAGE SampleRecordset AS 
TYPE CurReturnType IS REF CURSOR; 

PROCEDURE GetEmpRecords(CurOne OUT CurReturnType,
                        indeptno IN NUMBER,    
                        NumErrorCode OUT NUMBER);

END SampleRecordset; 
/
show errors;CREATE OR REPLACE PACKAGE BODY SampleRecordset AS 
PROCEDURE GetEmpRecords(CurOne OUT CurReturnType, 
indeptno IN NUMBER, 
NumErrorCode OUT NUMBER) IS 
BEGIN 
NumErrorCode := 0; 
OPEN CurOne FOR 
      select first_name,last_name,major from Students
         where department=indeptno;

EXCEPTION 
WHEN OTHERS THEN 
NumErrorCode:= SQLCODE; 
END GetEmpRecords; 
END SampleRecordset; 
/谢谢各位