Здравствуйте!в такой конструкции при выполнении программы выдает ошибку Parameter @FilmID not found
procedure TMainForm.Button4Click(Sender: TObject);
begin
Timer1.Enabled:=false;
if MessageDlg('Вы уверены,что хотите удалить запись?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
DM.StoredProcDeleteFromMain.Parameters.ParamByName('@FilmID').Value:=DM.QMainFilmID.Value;
try
DM.ADOConnection1.BeginTrans;
DM.StoredProcDeleteFromMain.ExecProc;
except
ShowMessage('Удвление не прошло!'+#13+'Запись заблокирована или удалена!');
DM.ADOConnection1.RollbackTrans;
exit;
end;
end;
end;