Rein theoretisch gibt's zig Möglichkeiten, eine könnte so aussehen:
Delphi-Quellcode:
var
Ampelzustand: Integer;
// ...
// Rot
if Ampelzustand = 1 then
Ampelzustand := 2;
// Rot Gelb
if Ampelzustand = 2 then
AmpelZustand := 3;
// Gelb
if Ampelzustand = 3 then
AmpelZustand := 4;
// Grün
if AmpelZustand = 4 then
AmpelZustand := 1;
In den If-Anweisungen kannst du dann deine Images entsprechend ein- bzw. ausblenden.