if Query.RecordCount <> 0 then begin ShowMessage(рузультат запись из поля XXX); end else begin ShowMessage('Нет записей удовлетворяющих поиску'); end;