FoxPro/Visual FoxPro - Resaltar lineas en el grid

Por favor si alguien me puede ayudar, tengo un formulario de consulta por nombre, cuando ubica el registro me muestra en la grilla sin problemas. Solo que le he creado un metodo para que me cambie el color de la primera columna cuando encuenta el registro, pero solo funciona al ejecutar por primera vez el formulario
este es el metodo color
SELECT pais
IF UPPER(alltrim(pais.nom_pais)) = UPPER(ALLTRIM(thisform.text1.Value));
AND NOT EMPTY(thisform.text1.Value)
RETURN RGB(255,0,0)
ENDIF

en la propiedad DynamicForeColor de column1 de la grilla = thisform.color()

En el evento Init del grid escribe esto

this.column1.DynamicForeColor = "IIF(UPPER(alltrim(pais.nom_pais)) = UPPER(ALLTRIM(thisform.text1.Value)) AND NOT EMPTY(thisform.text1.Value), RGB(255,0,0), this.column1.DynamicForeColor)

si pais.nom_pais no esta vacio en la tabla, puedes hacer esto

this.column1.DynamicForeColor = "IIF(UPPER(alltrim(pais.nom_pais)) = UPPER(ALLTRIM(thisform.text1.Value)), RGB(255,0,0), this.column1.DynamicForeColor)