[ebeltete]

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