Хранимая процедура Insert

SQL.Text :=
          'execute procedure librarian_add (-1, ''' + sEdit_New_Login.Text +
          ''',''' + sEdit_New_Password.Text + ''',''' + sEdit_Reg_Name.Text +
          ''',''' + sEdit_Reg_Surname.Text + ''', ''' +
          sEdit_Reg_Patronymic.Text + ''', ''' + DATA+
          ''',''' + sComboBox_Reg_Sex.ItemIndex + ''',''' +
          sComboBox_Reg_Post.ItemIndex + ''',''' + sEdit_Reg_Address.Text + ''+ ''')'

IBQuery.SQL.Text := 'execute procedure librarian_add (-1, :New_Login, :New_Password, ... , :DATA)';
IBQuery.ParamByName('New_Password').Value := sEdit_New_Login.Text;
IBQuery.ParamByName('DATA').Value := DateTimePicker.DateTime;

SQL.Text :=
          'execute procedure librarian_add (-1,:Login,:Pass,:RegName,:Surname,:Patronymic,:DATA,:Sex,:regPos,:Addres)';
with Parameters do begin
 ParamByName(':Login').Value:=sEdit_New_Login.Text;
 ParamByName(':Pass').Value:=sEdit_New_Password.Text ;
 ParamByName(':RegName').Value:=sEdit_Reg_Name.Text;
 ParamByName(':Surname').Value:=sEdit_Reg_Surname.Text;
 ParamByName(':Patronymic').Value:=sEdit_Reg_Patronymic.Text;
 ParamByName(':DATA').Value:=DATA;
 ParamByName(':Sex').Value:=sComboBox_Reg_Sex.ItemIndex;
 ParamByName(':regPos').Value:=sComboBox_Reg_Post.ItemIndex;
 ParamByName(':Addres').Value:=sEdit_Reg_Address.Text;
end;