Oracle调用Oracle存储过程？

[lesstif]

这是我写的存储过程：
/* 添加频道存储过程 */
CREATE OR REPLACE PROCEDURE ADD_CHANNEL(
A_CHANNELNAME IN VARCHAR2,
A_USERID IN NUMBER,
V_RESULT OUT VARCHAR2) IS
T_ID NUMBER(4);
BEGIN
V_RESULT := 'N';

/* 激活数据库事务 */
SET TRANSACTION READ WRITE;

/* 取得新加频道的系统编号 */
SELECT ID INTO T_ID FROM BJTV_DICT_CHANNEL WHERE ROWNUM<2 ORDER BY ID DESC;

/* 添加新频道 */
INSERT INTO BJTV_DICT_CHANNEL(ID, NAME) VALUES(
T_ID+1, A_CHANNELNAME);

/* 写入日志表格 */
INSERT INTO BJTV_LOG(LOGTIME, LOGUSERID, LOGROOTID, LOGMESSAGE) VALUES(
SYSDATE, A_USERID, T_ID+1, '新录入频道，事物提交');

/* 提交事务 */
COMMIT;

V_RESULT := 'Y';
EXCEPTION
WHEN OTHERS THEN BEGIN
/* 回滚事务 */
ROLLBACK;

/* 写失败日志，如不需要插入频道失败日志，注释下面的语句 */
INSERT INTO BJTV_LOG(LOGTIME, LOGUSERID, LOGROOTID, LOGMESSAGE) VALUES(
SYSDATE, A_USERID, -3, '添加频道失败，事物回滚');
COMMIT;

V_RESULT := 'N';
END;
END ADD_CHANNEL;
/

可否给出一个调用的简单例子，谢谢

[luoweicaisd]

Ado调用：
首先用ADOConnection1连上oracle，再用adostoredproc指定存储过程

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOStoredProc1.Close;

ADOStoredProc1.Parameters.ParamByName('').Value :=;
.............
ADOStoredProc1.ExecProc;

end;

[lesstif]

这样不可以，我试过了，总报错：接口不被支持。呵呵