Вывод ошибки при недостаче товара

[pr1nc1k]

Доброго времени суток. Нужна помощь в одном вопросе...Хочу чтобы при окончании товара, выдало ошибку, типа - "Товар закончился. Заказать?". Тоесть если в поле "Количество товаров" значения < 3, то выдает в этом случае предупреждение о заказе. Вот что у меня получилось:

procedure TForm8.Button1Click(Sender: TObject);
var R:Word;
begin
Form1.Show;
if Form1.Table1.FieldByName('Number').AsInteger<3 then
R:= MessageDLG('Товар заканчивается. Заказать?', mtWarning, [mbYes,mbcancel], 0);
if R = mrYes then
   begin Form10.Show;
   end
else begin R:=mrcancel;
end;
end;

Все работает, НО в любом случае выскакивает MessageDLG, хоть там и 100 товаров, хоть и 0...В чем я натупил?? Буду рад любой помощи.