Как сделать чтобы выдавало сообщение при неправильном вводе?

[jawa250t]

Есть кнопка дбгрид и эдит! в эдит ввожу критерий запроса, в дб грид выводит строку из таблицы! ВОПРОС как сделать так, чтобы если ввожу значение которого нет в базе выводилось ссобщение?

procedure TForm1.Button1Click(Sender: TObject);
begin
datamodule2.ADOQuery1.Active:=false;
datamodule2.ADOQuery1.SQL.Clear;
datamodule2.ADOQuery1.SQL.Add('select *');
datamodule2.ADOQuery1.SQL.Add('From Личные_данные');
datamodule2.ADOQuery1.SQL.Add('where `Инвентарный номер` LIKE'''+Edit1.text+'''');
datamodule2.ADOQuery1.Active:=true;
end;

[Serge_Bliznykov]

дописать после открытия датасета проверку и выдачу сообщения:

datamodule2.ADOQuery1.Active:=true;
  if datamodule2.ADOQuery1.RecordCount =0 then - Выдать сообщение

проверять можно по разному.
вот так ещё можно

  if datamodule2.ADOQuery1.IsEmpty then - Выдать сообщение

[jawa250t]

спасибо большое!!