Вызов ХП из Oracle

[Mashul'ka]

Пытаюсь вызвать две процедуры в Delphi.

PROCEDURE del_stud( id_studenta INTEGER)
AS id_stud INTEGER;
BEGIN
DELETE student
WHERE id_studenta=id_stud;
END del_stud;

PROCEDURE new_i(L VARCHAR2, pas VARCHAR2, f VARCHAR2, nom_z NUMBER , nom_gr NUMBER )
AS v_id_studenta NUMBER;
BEGIN
SELECT  id_studnta_SQ.NEXTVAL
INTO v_id_studenta FROM DUAL;
INSERT INTO student(id_studenta,login, parol, fio, nomer_zachetki, nomer_gruppi)
VALUES (v_id_studenta, L, pas,f, nom_z, nom_gr  );
END new_i;

Текст вызова ХП:

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOStoredProc1.Parameters.ParamValues['l'] := Edit1.Text;
ADOStoredProc1.Parameters.ParamValues['pas'] := Edit2.Text;

ADOStoredProc1. Parameters.ParamValues['f'] := Edit3.Text;

ADOStoredProc1.Parameters.ParamValues['nom_z']:= Edit4.Text;
ADOStoredProc1.Parameters.ParamValues['nom_gr']:= Edit5.Text;
ADOStoredProc1.ExecProc;

ADOTable1.Refresh;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Application.MessageBox('Удалить студента.', 'Удаление', MB_OKCANCEL)=ID_OK then
begin
ADOStoredProc2.Parameters.ParamValues['Id_studenta'] := Edit6.Text;
ADOStoredProc2.ExecProc;
ADOTable1.Refresh;
end;
  end;

При запуске выдает сообщение об ошибке.

[Surgeon]

Сообщение от Mashul'ka

При запуске выдает сообщение об ошибке.

При использовании какой из процедур?

Я может чего-то не понимаю но ID_stud - имя поля таблицы, а ID_studenta - имя параметра, тогда приравнивается значение параметра значению поля из таблицы:

Сообщение от Mashul'ka

WHERE id_studenta=id_stud;

Вообще что-то часто стали задавать вопросы по ХП.
У меня другой вопрос - зачем использовать ХП для таких тривиальных вещей???
P.S. лучше код оформить по правилам, скоро придет модератор и вынесет предупреждение.

[Sparkman]

Ошибка с типами

PROCEDURE new_i(L VARCHAR2, pas VARCHAR2, f VARCHAR2, nom_z NUMBER , nom_gr NUMBER )
ADOStoredProc1.Parameters.ParamValu es['nom_z']:= Edit4.Text;

попробуйте

ADOStoredProc1.Parameters.ParamValu es['nom_z']:= StrToInt(Edit4.Text);