[Antuan]

Hola con el segundo ejemplo he intentado hacer una funcion, pero mi nivel ya sabes que todavia nada de nada y no veo donde esta en primer contador del caption de panel. Pero aun viendolo creo que no sere capaz.
La idea de hacer una funcion en vez de un procedure sigue siendo la misma que el ejemplo que me has enviado con un procedure.
Sacar el mensaje, con el procedure del ejemplo que has puesto aqui o una funcion, mandar llamar a la funcion que te comente que tardaba un poquito en ejecutarse y una vez ejecutada y devolver el resultado. Borrar el menjsaje.
Si la mi funcion tarda tiempo en dar la respuesta el mensje permanecera en pantalla dependiendo del tiempo que tarde la funcion en cumplirse.
Bueno eso es todo pero que para mi es demasiado.
Crei ue Delphi tenia alguna funcion interna en la que presentase un mensaje de espera sin tener botones y que se cierre sola.