Bloquear un registro en un grid

Yo deje de usar los registros bloqueados con el método que he denominado en modo desconectado Daré un curso pronto por internet si quieres inscríbete el costo es 30U$ de todas maneras vista mi blog ingesoftsrl. Mi-web. Es
**---------------------------------------*
**   FUNCION PARA BLOQUEAR UNA TABLA
**---------------------------------------*
FUNCTION BBASE
 DO WHILE .T.
   IF FLOCK()  && devolverá verdadero (.T.) si logra bloquear la tabla
      OK=.T.
      EXIT
   ELSE
       Resp = MESSAGEBOX('La base de datos que desea utilizar'+CHR(13)+ ;
                         'esta ocupada por otra persona.' + alias()+ CHR(13)+ ;
                         'Desea Reintentar su uso? ',4+32,+proper(config.colegio))
     IF Resp = 7  && No
        OK=.T.
        EXIT    
     ENDIF
   ENDIF
ENDDO
RETURN OK
**---------------------------------------*
**   FUNCION PARA BLOQUEAR UN REGISTRO
**---------------------------------------*
FUNCTION RBASE
 DO WHILE .T.
   IF RLOCK()  && devolverá verdadero (.T.) si logra bloquear el registro
      OK=.T.
      EXIT
   ELSE
       Resp = MESSAGEBOX('El registro que desea modificar'+CHR(13)+ ;
                         'esta ocupado por otra persona.' + alias()+ CHR(13)+ ;
                         'Desea Reintentar su uso? ',4+32,+proper(config.colegio))
     IF Resp = 7  && No
        OK=.T.
        EXIT    
     ENDIF
   ENDIF
Enddo
RETURN OK

¿Yo me refería a bloquear un registro en un grid
me puedes ayudar?