Esperar a terminar algo

[Patxi]

Hola, será una tonteria pero yo no sé cómo hacerlo,
si tengo un timer que en su OnTimer hace una serie de cosas y pulso un botón y en su OnClick quiero hacer algo pero solo cuando la procedure del OnTimer haya terminado, si le pongo un while "esta_ejecutandose" do Application.ProcessMessages; siendo esta_ejecutandose una variable que pongo a True al principio del OnTimer y a False al final, para que espere a que termine lo del OnTimer, se queda con lo del ProcessMessages todo y las instrucciones de dentro del OnTimer también se quedan esperado.
Si alguien me indicara algo, se lo agradecería mucho.