Thanks Tore.

Then the revised code will look like this :

** in grid1.column1.text1 lostFocus
repl filename.flag with "Y"
** AfterRowColchange
thisform.grid1.column1.ReadOnly=flag="Y"

Much shorter code.
Shafid