Здравствуйте!в такой конструкции при выполнении программы выдает ошибку 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;

подскажите как решить эту проблему?