fade de audio
 

Hola tengo un componente que funciona conectado al reproductor de windows es el activemovie de Delphicity, el tema es que quiero hacer un fade (que el volumen baje gradualmente), lo he hecho de varias maneras y ninguna me conforma, la mas simple que encontre es haciendo un loop ej;

for i:=0 to 3000 do
begin
volume:=-i;
application.processmeagge;
end;

funciona bien,pero el tema es que depende de la velocidad de la maquina, o sea si la maquina es veloz hace el fade en 4 segundos pero si la compu es lenta demora 20 segundos, se les ocurre algo para resolverlo en forma sencilla?
Gracias a todos

En vista de que no he tenido respuesta, y antes de ponerme a llorar, cambio la forma de preguntar:
Hay alguna forma de hacer un loop que no me quede colgada la aplicacion hasta terminarlo, pero que no sea con application.processmeagge, tampoco que sea con un ttimer.