Проверка в запросе

[ара]

Доброго времени суток! Подскажите, пож., как сделать!
Использую Делфи + Аксес. Делаю запрос на изменение: из значения поля Ostatok таблицы Tovar вычитаю значение поля Kol-vo таблицы Rashod и записываю его значение в поле Ostatok. Соответственно расход товара не может быть больше чем осталось товара. Подскажите, пожалуйста, как сделать проверку!?

procedure TRashodForm.RashodButtonClick(Sender: TObject);
var
  qry2: TADOQuery;
begin
 if MessageBox(0,'Вы действительно хотите списать товар?','Внимание!', MB_YESNO or mb_iconquestion)=mrYes then
  begin
   qry2 := TADOQuery.Create(nil);
   qry2.Connection := DataModule1.ADOConnection1;
   qry2.close;
   qry2.SQL.Clear;
   qry2.SQL.Text:='UPDATE Raschod INNER JOIN Tovarn_pozicia ON Raschod.id_tovarn_pozicia=Tovarn_pozicia.id_tovarn_pozicia SET Tovarn_pozicia.Ostatok=Tovarn_pozicia.Ostatok - Raschod.[Kol-vo]';
   qry2.ExecSQL;
   qry2.Close;
   qry2.Free;
   DataModule1.Tovarn_pozTable.Close;
   DataModule1.Tovarn_pozTable.Open;
   MessageBox(0,'Товар списан!', 'Внимание!', MB_OK or MB_ICONINFORMATION);
  end;
end;