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

[FriFra]

Mit einer Schleife wirst Du IMHO nicht glücklich werden, da diese viel zu schnell läuft. Nimm lieber einen Timer

z.B.:

Delphi-Quellcode:

procedure TForm1.Timer1Execute(Sender: TObject);
begin
  if Color = clBtnFace then
    Color := clRed
  else if Color = clRed then
    Color := clGreen
  else if Color = clGreen then
    Color := clBlue
  else if Color = clBlue then
    Color := clLime
  else if Color = clLime then
    Color := clBtnFace;
end;