Cambiar la forma del apuntador del mouse

[jachguate]

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.