Where is delete? You have commented them out?

>hi all
>
>at this code under i nedd to delete what i choice from mytable(newammar66),
>i'll try to put delete at my code but nothing happend.
>any idea.
>

>CLOSE all
>SET TALK OFF
>SET ECHO OFF
>SET SAFETY OFF
>
>thisform.text3.SetFocus
>USE home1 excl
>zap
>SELECT 0
>USE newamar66 EXCL
>*SET DELETED on
>INDEX ON VAL(char18) 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(char18) = i
>   lnTotalCopied = lnTotalCopied + _Tally
>   SELECT home1
>   APPEND FROM temp2
>
>   SELECT newamar66
>*delete
>NEXT
>thisform.text3.SetFocus
>
>CLOSE ALL
>use home1 excl
>BROWSE
>
>
>
>
>

>thanks.
>m.qasem