Problemas para borrar un texto en un TEXTBOX

[Antonio Cardinaux]

Tengo un control XBROWSE y un TEXTBOX. El xbrowse tiene nombres de empleados de un sistema de sueldos. El Textbox permite filtrar ese xbrowse de acuerdo al nombre que se le ponga. Tengo estas lineas:

  DEFINE TEXTBOX txtBuscar
      ROW 40
      COL 140
      VALUE cBuscar
      WIDTH 200
      ON GOTFOCUS SelectAllText( "txtBuscar","frmLegajos" )
      ON CHANGE Buscar()
      UPPERCASE .T.
    END TEXTBOX

    aHeaders:={'Legajo','Apellido y Nombres','Domicilio','Localidad' }
    aWidths :={ 60,200,220,220 }
    aCtrl:={ {'TEXTBOX','CHARACTER' },{'TEXTBOX','CHARACTER' },{'TEXTBOX','CHARACTER' },{'TEXTBOX','CHARACTER' } }

@ 70, 10 XBROWSE XBrLegajos ;
  OBJ oXBrLegajos ;
      WIDTH 710 ;
      HEIGHT 310 ;
      HEADERS aHeaders ;
      WIDTHS aWidths ;
      WORKAREA empleadolega ;
      FIELDS { 'legajo','nombre','domicilio','localidad' } ;
  COLUMNCONTROLS aCtrl ;        
  ON DBLCLICK AbmLegajos( "M" )

    DEFINE STATUSBAR
      STATUSITEM ''l
    END STATUSBAR
   
    ON KEY DELETE ACTION  IF( ThisWindow.FocusedControl == "XBRLEGAJOS", DelRow(), NIL )

El ON KEY DELETE funciona bien siempre que uno se posicione en el xbrowse, pero si de pronto estoy en el textbox y me doy cuenta de que lo que escribi esta mal, marco el texto que esta mal con el mouse y luego presiono DEL, no hace nada ¿Como se puede hacer para que funcione la tecla DELETE en el textbox?

Antonio
Sistemas
Resipol