Delphi - Ejecución automatica

Tengo el siguiente problema, es algo trivial pero no se cómo se podría resolver. Tengo un proyecto que al iniciarse necesita ejecutar un procedimiento, lo he puesto para que se ejecute en el evento OnShow del form principal pero resulta que este procedimiento es largo (lento) por tanto he colocado un boton cancelar para que el usuario pueda detenerlo si asi lo desea, el tema es que al ejecutarse el evento OnShow el formulario (y por tanto el boton cancelar) no se muestra realmente en la pantalla hasta que termina el proceso y el usuario no puede cancelarlo. Se me ha ocurrido poner un timer pero me gustaría saber si hay una forma mejor y mas elegante de hacerlo.
Espero que me halla explicado bien.
Saludos.

Una forma es colocando <Application.Processmessages;> dentro de los procesos que van a tardar, cuando la ejecucion del programa llega a esta linea, detiene momentaneamente el proceso y ejecuta lo que tenga pendiente en la cola de mensajes de güindous (por ejemplo repintar un formulario o detectar la pulsación de un boton)