Procesos largos, Threads y progreso

[manuel_conde]

Hola a todos. Hoy os propongo un desafío que llevo tiempo encima de él.
El caso es que tengo unos eventos que hacen mogollón de cosas.
Por ejemplo, le doy a un botón de "Actualizar" y el evento hace cosas que pueden llevar unos veinte segundos. Entonces, mientras se realiza el proceso, me gustaría abrir un formulario con una label a modo de contador que fuese indicando el tiempo va transcurriendo.
Se me ocurrió lanzar un thread al inicio de la gestión del evento que abra un formulario y vaya actualizando la label, y matar el thread al final del proceso, pero ... oohhhh, el thread no hace nada hasta que termina todo el proceso.
Me gustaría saber si alguien ha resuelto algo así...
Por ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
   th := tmythread.create(false); //creo el thread
   // Aquí va un proceso que le lleva 20 segs....
   // supongamos que en vez de llevarle 20 segs le lleva mucho, mucho tiempo:
   while true do begin end; 
 
   th.terminate; // terminamos el thread
end;

Mientras tanto... el thread estaría haciendo:
procedure TmyThread.Execute;
begin
 while not fin do
     Synchronize(UpdateCaption)
end;
 
procedure TmyThread.UpdateCaption;
begin
    Form1.Caption := floattostr(now);;
end;

---------------------------------------------
Lo que he visto es que el thread no empieza a funcionar hasta que termine el evento desde el cual se inició la ejecución del evento (y claro... empieza a funcionar caundo ya no hace falta).

Gracias a todos.