delphi调用interbase存储过程

正在学习delphi，从网上还有请教前辈，终于知道了如何调用interbase数据库的存储过程。

调用interbase的存储过程要用到IBStoredProc控件。

with IBStoredProc1 do
begin
    StoredProcName:='ADD_YG';   //存储过程名叫'ADD_YG'
    Params.Clear;
    Params.CreateParam(ftString,'pid',ptInput).AsInteger:=pid;
    Params.CreateParam(ftString,'pname',ptInput).AsString:=pname;

    Prepare;
    ExecProc;

end;

存储过程'ADD_YG'：

CREATE PROCEDURE ADD_YG (
    pid integer,
    pname varchar(10),
    )
as
begin
insert into yg(id,name)values(:pid, :pname);/*yg为一表*/
exit;
end