Hm in deinem Code sehe ich nichts von dem da:
Da gibt es eine Funktion die den Level über einen bestimmten Zeitraum darstellen kann. Wenn ich mich nicht irre, max 2 sec.
Ich komme im Augenblick nicht an mein Delphi heran, aber in der Doku sollte man fündig werden.