SELECT propnum
* SET ORDER TO pk
FOR i = 1 TO ALEN(.aRemovePN)
  DELETE NEXT 1 WHILE SEEK(.aRemovePN[m.i]) 
ENDFOR

* first : copy array column property to a private array 
PRIVATE aCache
IF ACOPY(.aRemovePN,aCache)>0
  SELECT propnum
  IF ALEN(aCache)<2 && you can try 3 ..... 5 
     * this is a scan table not optimizable
     DELETE FOR ASCAN(aCache,nproperty)>0 NOOPTIMIZE
  ELSE
     FOR i = 1 TO ALEN(aCache)
       DELETE FOR nproperty = aCache[m.i] && this optimizable
     ENDFOR
  ENDIF
ENDIF