ora怎么创建存储过程，然后在delphi里如何调用这个存储过程

Question

create or replace procedure tmpToSys as
begin
  --不存在的导入
  insert into wt_sys 
  select * from wt_tmp 
   where not exists(select 0 from wt_sys where id=wt_tmp.id);
  commit;
  --更改sys表中的纪录
  update wt_sys set (field1,field2....)=(select * from wt_tmp where id=wt_sys.id) 
  where id in (select id from wt_tmp);
  commit;
end;在delphi中，创建一个adoStoreProc控件adosp_tmpToSys,将其procedure_name设为上面过程名称。
调用：
   adosp_tmpToSys.execPROC;