oracle+DELPHI(100分)

数据库是oracle 9i
表名是aaaa
字段是a1 varchar2(10) a2 varchar2(10) a3 varchar(3)
存储过程是TESTAA
(pa1 aaaa.a1%type,
pa2 aaaa.a2%type,
pa3 aaaa.a3%type
)
IS
BEGIN
INSERT INTO aaaa (a1, a2, a3)
VALUES(pa1, pa2, pa3);
END TESTAA;
用DELPHI调用是：
StoredProc1.Close;
StoredProc1.StoredProcName:='TESTAA';
StoredProc1.Open;
StoredProc1.Params[0].asstring:=edit1.text;
StoredProc1.Params[1].asstring:=edit2.text;
StoredProc1.Params[2].asstring:=edit3.text;
StoredProc1.ExecProc;
老是出错，哪位能帮我修改一下。

先确定存储过程是否正确，在oracle中试一下，行了的话再研究delphi中的问题

StoredProc1.Close;
StoredProc1.StoredProcName:='TESTAA';
StoredProc1.Params[0].asstring:=edit1.text;
StoredProc1.Params[1].asstring:=edit2.text;
StoredProc1.Params[2].asstring:=edit3.text;
StoredProc1.ExecProc;