IF This.Caption="Поиск"
	SELECT Telefon
	lnRec=RECNO()
	lcText=UPPER(Thisform.txtFind.Value)
	IF !ISBLANK(lcText)
		COUNT FOR lcText $ UPPER(Telefon.company) OR lcText $ UPPER(Telefon.fio) OR ;
				lcText $ UPPER(Telefon.tlf) OR lcText $ UPPER(Telefon.primech) TO lnQz
		IF lnQz>0
			......
		ELSE
*			lnKey=LASTKEY()
			MESSAGEBOX("Нет записей, удовлетворяющих условию.",64,"Результат поиска")
			GO lnRec
			Thisform.txtFind.Setfocus()
*			IF lnKey=13
*				KEYBOARD '{BACKTAB}' PLAIN CLEAR
*			ENDIF
		ENDIF
	ELSE
		MESSAGEBOX("Задайте подстроку для поиска.",64,"Ошибка")
		Thisform.txtFind.Setfocus()
	ENDIF
ELSE
	This.Caption="Поиск"
	SET FILTER TO
	SET ORDER TO
	GO TOP
	Thisform.Grid1.Refresh
	Thisform.txtFind.Value=""
	Thisform.txtFind.Setfocus()
ENDIF

LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=13
	Thisform.cmdFind.Click()
ENDIF