Dear Experts

Table1 has only one field as

month c(7)

and data in table is as

06-2007
06-2007
07-2006
07-2007
07-2007
08-2007
07-2007

Now I want to delete all enteries containing 07-2007
For this, I use this command but it does not work

curmon=07-2007
lnMonths3 = Val(Substr(curmon , At("-", curmon )+1)) * 12 + Val(curmon ) - 1
CVAR3 = Str(Int(lnMonths3 / 12), 4)+Padl(Int(lnMonths3) % 12 + 1, 2, "0")
Select Table1
delete for month=m.cvar3
pack

In 07-2007, 07 is month and 2007 is year
I use British date

Please help