Como eliminar registros em um Browse de multipla seleção

DEFINE VARIABLE i AS INTEGER    NO-UNDO.
  DEFINE VARIABLE l AS LOGICAL    NO-UNDO.
  DO i = 1 TO {&browse-name}:NUM-SELECTED-ROWS:
     ASSIGN l = {&browse-name}:FETCH-SELECTED-ROW(i).
     IF l THEN DO:
         FIND CURRENT customer EXCLUSIVE-LOCK.
         DELETE customer.
     END.
  END.
  {&OPEN-QUERY-{&BROWSE-NAME}}