FoxPro/Visual FoxPro - aficionado

Por favor ayudenme a encontrar las fallas de este ejemplo: uso un archivo de clientes y quiero ingresar registros validando si existen o no

Procedim Init Use Clientes
set order to 1
go top
return
Objeto Agregar Proced Valid
Thisform.txtCodigo.Setfocus
* aca realizo validacion para que no pase un codigo vacio (emty())
buscar=alltrim(thisform.txtCodigo.Value)
seek buscar
if ! found()
M1="No Existe. Lo Ingresara?"
M2=messagebox(M1,1+32,"Agregar Codigo "+buscar)
if M2=1
append blank
scatter memvar
thisform.refresh
insert into clientes from memvar
thisform.txtcodigo.setfocus
endif
else
* mensaje de ya existe intente otro
endif
Notas:Cuando el archivo esta vacio y trato de agregar, todos los campos se me bloquean

Gracias