Inserindo dados com bloco pl-sql

{No banco de dados.:

create or replace }
procedure insere_departamento (v_nome char) is
v_id number;
begin
SELECT sequenciaID.NEXTVAL INTO v_id FROM DUAL;
insert into tabela (id,dep,region_id)
values (v_id,v_nome,null);
end insere_departamento;


{No delphi:

- coloque o objeto TStoredProc dentro do formulario que ira disparar esta procedure;
- no evento que voce quiser que dispare coloque o seguinte codigo: }
var
v_nome : String[50];
begin
{caso vc queira informar o nome do departamento atraves de uma caixa de dialogo}
V_nome := inputbox('Informe o nome do departamento.','Depto:','');
.Params[0].AsString := v_nome;
{caso vc queira buscar o nome atraves de um TEdit já preenchido}
.Params[0].AsString := .Text;
.ExecProc;
end;