delphi 调用存储过程返回游标，如何关闭该游标

[trainbox]

如题。为类似如下的游标

PROCEDURE GET_LEDTITLE(P_RESULT OUT P_CURSOR) IS
BEGIN
OPEN P_RESULT FOR
SELECT CONTENT FROM TIMELY_MESSAGE WHERE MESS_TYPE='LED标题';
END;