einfaches lauflicht?

[Chriss]

hi @ all!!

ich hab ein einfaches lauflicht programmiert. es arbeitet mit 10 labels, wovon immer nur 3 "rot leuchten".
ich hab es schon hinbekommen, dass das lauflicht von links nach rechts und wieder zurück funktioniert, aber dann geht es nicht weiter... warum nicht!?

damit zähle ich ein label hoch, woran sich das lauflicht orientieren soll:

Code:

Label1.Caption := IntToStr(i+1);
i := i+1;

und mit diesem teil "leuchten" die label auf:

Code:

if label1.caption='20' then
begin
label12.color:=clblack;
label15.color:=clred;
end;

(da ist es bereits an der 4. "lampe")

der rückweg geht gleich:

Code:

if label1.caption='85' then
begin
label15.color:=clblack;
label12.color:=clred;
end;

alles schön und gut... aber wenn ich jetzt das label auf '0' setzte, geht es nicht weiter, aber er sollte doch eigentlich wieder hochzählen, oder?

thx

Chriss