Hard to say why you're getting errors. Ok, let's try few changes (see inside)

>hi,
>
>i try it, same error??
>

>SET STATUS OFF
>SET TALK OFF
>SET ECHO OFF
>SET SAFETY off
>ma=JUSTSTEM(thisform.text1.value)
select 0
>USE (ma) alias WorkTable
>COUNT TO thisform.text3.value
>*total = "8000"
>total = Val(THISFORM.TEXT2.VALUE)
>RAND(-1)
>INDEX ON RAND() TO SYS(2023)+'\RANDOM'
>COPY TO NEWADSL NEXT total
>SET INDEX TO
>ERASE SYS(2023)+'\RANDOM'
use newAdsl in 0 alias RecToDelete
>****************************************
>delete from WorkTable inner join RecToDelete on WorkTable.telNo = RecToDelete.TelNo &&syntax error

>


* If the above would not work for some unknown reason, let's do

select RecToDelete
scan
  if seek(TelNo,'WorkTable','TelNo') && If we have index tag on TelNo
    delete in WorkTable
  endif 
endscan