"Disco" (oder Countdown) in Delphi möglich?

[ichbins]

In der while-schleife wäre das auch möglich:

Delphi-Quellcode:

var
  lastact:tdatetime;
const
  interval:real=1;
begin
  while not application.terminated do begin  //solange der Benutzer das Prog nicht geschlossen hat
    while now<lastact+interval/3600/24 do   //solange die letzte Aktion nicht länger als interval sekunden her ist
      application.processmessages;   //Windows-Nachrichten abarbeiten
    //jetzt farbe ändern
  end;