Procedure bis zum Ende weiterführen

[Royal Ranger]

Hallo,
ich brauch mal von jemandem einen Tipp wie ich ein Problem lösen kann...Ich hab ein Variable "index : Byte", die alle 2 Sekunden von einem
Zufallszahlengenerator im bereich 1-5 neu deklariert wird nun will ich dass wenn index den Wert 1 an nimmt, der eine Ablauf beginnt, bei index:=2 ein anderer und bei index :=3 wieder ein anderer und so weiter. ich habe das bisher so gelöst:

Delphi-Quellcode:

case index of

1 :
begin
 ....     ;
end;

2 :
begin
 ...;
end;
3 :
begin
 ... ;
end;
4:
begin
 ....    ;
end;
5 :
begin
 ....;
end;
end;

Mein Problem ist jetzt dass sobald index einen neuen Wert annimmt, der alte Ablauf unterbrochen wird und eben der neue beginnt...Wie könnte ich es hinkriegen, dass der Ablauf zuende geführt wird auch wenn index schon einen neuen Wert angenommen hat?

Vielen Dank