hi all,
this the code under sometimes work and delete ,somtimes work without delete,

i need work and delete.
any idea.

CLOSE all
SET TALK OFF
SET ECHO OFF
SET SAFETY OFF
    thisform.text3.SetFocus
     USE homecomm1 excl
     zap
  SELECT 0
    USE newcomm66 EXCL
    SET DELETED on
    INDEX ON VAL(char2) TO hh

     set order to "hh"
     lnTotalCopied = 0
     FOR i = 1 TO (thisform.text3.Value)  && assume 20 values for flag
     lnTotalNeedingCopy = (thisform.text3.Value * i) - lnTotalCopied
   SEEK i
   COPY TO temp2 NEXT (lnTotalNeedingCopy) WHILE VAL(char2) = i
   lnTotalCopied = lnTotalCopied + _Tally
   SEEK i
   DELETE NEXT (lnTotalNeedingCopy) WHILE VAL(char2) = i
   SELECT homecomm1
   APPEND FROM temp2
   SELECT newcomm66
 NEXT
   delete&&the proplem
 thisform.text3.SetFocus

CLOSE ALL
use homecomm1 excl
BROWSE

thanks.