I think it's solved, I create a second cursor TEST111

SELECT TEST11

SCAN
STORE TEST11.ID TO VERR
SELECT TEST111
COUNT FOR TEST11.ID = VERR TO VERIX
IF VERIX > 1
= MESSAGEBOX ("DUPLICATE RECORD" + STR (VERR))
ENDIF
ENDSCAN