Try remove two lines
>Maybe if we remove RECCOUNT() and show RECNO() this will works :-)
>

>set deleted on
>create cursor cursr1 (myfield c(3))
>insert into cursr1 values ('AAA')
>insert into cursr1 values ('BBB')
>insert into cursr1 values ('CCC')
>insert into cursr1 values ('DDD')
>
>select cursr1
>index on myfield tag myfield
>set order to tag myfield in cursr1
>
>crtotallines1=alltrim(str(reccount('cursr1')))
>
>messagebox(crtotallines1)
>
>
>select cursr1
>if NOT seek ('CCC','cursr1','myfield')
>   messagebox('prob',0+16)
>   return
>endif
>delete in cursr1 for cursr1.myfield='CCC'
>SET DELETED OFF
>select cursr1
>=seek ('CCC','cursr1','myfield')
>crtotallines2=alltrim(str(RECNO('cursr1')))
>messagebox(crtotallines2)
>SET DELETED ON
>
>
>
>
>set deleted on
>create cursor cursr1 (myfield c(3))
>insert into cursr1 values ('AAA')
>insert into cursr1 values ('BBB')
>insert into cursr1 values ('CCC')
>insert into cursr1 values ('DDD')
>
>select cursr1
>index on myfield tag myfield
>set order to tag myfield in cursr1
>
>crtotallines1=alltrim(str(RECNO('cursr1')))
>
>messagebox(crtotallines1)
>
>
>select cursr1
>if NOT seek ('CCC','cursr1','myfield')
>   messagebox('prob',0+16)
>   return
>endif
>lnRecNo = RECNO([cursr1])
>BROWSE NORMAL
>delete in cursr1 for cursr1.myfield='CCC'
>
>select cursr1
>SET DELETED OFF
>GOTO lnRecNo
>BROWSE NORMAL
>crtotallines2=alltrim(str(RECNO('cursr1')))
>messagebox(crtotallines2)
>