Effekt wie beim Windows Media Player

[himitsu]

z.B.

Code:

While Height > [color=red]100[/color] do Begin
  Height := Height - 1;
  Application.ProcessMessages;
  Sleep(10);
End;

Sleep ist vorrangig zur Begrenzung der CPU-Belastung drin, mann könnte es auch weglassen.
Allerdings läßt sich damit auch die Geschwindigkeit regeln.

Bei mir ist das zwar etwas aufwendiger, da es dort Zeitgesteuert abläuft und so auf allen Rechnern gleich schnell ist.

Auf "Setup / Info" klicken.