Hola de nuevo, pues lo que dice lepe puede que tenga razon , quizas algo efecto colateral. Lo que hice por el momento es escribir 2 veces la linea del locate
If (DM.Expedientes.Locate('codigo',Edt_Buscar.Text,[]) = True) Then
If (DM.Expedientes.Locate('codigo',Edt_Buscar.Text,[]) = True) Then
Aunque sea tonto pero asi funciona. Desde ya muchas gracias amigos, les estoy agradecido por su atención saludos desde Argentina.-