En primer lugar te recomiendo el uso de las constantes definidas en la unidad Controls:
crHourGlass -> Reloj de arena
crArrow -> Flecha (normal)
crDefault -> Vuelve al que sea default para la clase de ventana, normalmente crArrow
Para mas constantes, buscá en la ayuda "TCursor type".
Otro punto es que debes preocuparte porque aunque algo falle, el cursor vuelva a la normalidad. Yo lo hago encerrando la llamada al proceso en un try/finally:
Código Delphi
[-]
Screen.Cursor := crHourGlass;
try
Proceso;
finally
Screen.Cursor := crDefault;
end;
Por último, en tu caso parece que el
proceso_de_busqueda retorna sin haber realizado todo el proceso... quizas lo deja corriendo en otro hilo. Si queres que funcione, este procedimiento no debe retornar el control hasta que haya terminado de realizarse la busqueda.
Hasta luego.
