[lmikle]

1. Кладем компонент типа TQuery (TADOQuery, TIBDataSet и т.д.).
2. В нем вводим запрос и подсоединяем к визуальным компонентам.
3. Выполняем запрос.
4. У компонента есть свойство RecordCount. Если оно = 0, то выводим сообщение и закрываем запрос.