模拟sqlplus&worksheet中的工作过程！

如何实现
一次性执行
下边的代码是给oracal加触发
drop sequence area_s;
create sequence area_s;drop trigger area_t; create or replace trigger area_t
 before insert on gsm209.area
 for each row
 begin
 SELECT gsm209.area_s.NEXTVAL INTO :NEW.area_code from dual;
 end;
它可以在sqlplus中执行，但是要用delphi调用如何解决？我可以用adoquery.sql.add('');
        adoquery .ExecSQL;不过太慢，再说（create or replace trigger area_t
 before insert on gsm209.area
 for each row
 begin
 SELECT gsm209.area_s.NEXTVAL INTO :NEW.area_code from dual;
 end;）这种组合很难实现！http://expert.csdn.net/Expert/topic/2999/2999037.xml?temp=3.698367E-02同一个贴，为了给你加分，所以请你回答后在那儿那儿打个招呼，以便给足分！