Mein erstes Programm ohne Hilfe.

[implementation]

Daraus könntest du eine case-Verzweigung machen:

Delphi-Quellcode:

case Gauge1.Progress of
  21: Timer.Intervall := 5000;
  26, 60: Timer.Intervall := 1;
  48, 98: Timer.Intervall := 1000;
  57: Timer.Intervall := 100;
  95: Timer.Intervall := 10000;
  100: Label1.Show;
end;