Bloco PL/SQL para inserção de dados

Criar um bloco pl/sql que insira um novo dep na tabela s_dept

- use a sequencia s_dept_id para o campo id da tabela
- solicite ao usuario o nome do dep
- insira valores nulos p/ o campo region_id

-> 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;