Du solltest im OnCreate der Form der Variable "zustand" einen bestimmten Wert zu weisen, z. B. 1
Die Abfrage:
if zustand >4 then zustand := 1;
wird dir nicht viel bringen, da deine Ampel nach Zustand = 4 wieder auf Zustand = 1 springen muss.
Bei deiner If-Abfrage würd dies erst bei Zustand = 5 oder höher passieren.
du solltest:
if zustand = 4 then zustand := 1;
schreiben.
Wenn du diese Hinweise befolgst, dann dürf deine Ampel auch ampeln
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<