怎样用DELPHI动态创建ORACLE中的存储过程？

我在项目里有一项需求，为了完成必须在程序中动态创建ORCALE的存储过程；
我的语句如下：ADOQuery1.SQL.Clear();ADOQuery1.SQL.Add('CREATE OR REPLACE  PROCEDURE "USERBIMSLS"."BASE1" HRID in  varchar2,YourDate in varchar2 )');
ADOQuery1.SQL.Add('as    TempNum int;');
ADOQuery1.SQL.Add('      Temp1 float;');
ADOQuery1.SQL.Add('begin             ');
ADOQuery1.SQL.Add(' Temp1:= 0; select count(*) into TempNum from USERBIMSLS.TGLS_SALARYBASE WHERE fdHRID=HRID ; if (TempNum > 0) then select FDVALUE into Temp1 from USERBIMSLS.TGLS_SALARYBASE WHERE fdHRID=HRID ;  end if;');
ADOQuery1.SQL.Add(' Temp1:= 0; ');
ADOQuery1.SQL.Add(' end;');ADOQuery1.ExecSQL();*****************************************************
CREATE OR REPLACE  PROCEDURE "USERBIMSLS"."BASE1" (HRID in  varchar2,YourDate in varchar2 )
as    TempNum int;
      Temp1 float;
begin             
 Temp1:= 0; 
end;
*****************************************************一执行就出错
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOleException with message '不正常地定义参数对象。提供了不一致或不完整的信息。'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------在SQL PLUS中就没问题！
那位知道是什么原因，有什么解决办法！！！
先谢了！