Hier ist der Code (ohne, wie die Ampel gezeichnet wird).
Code: Alles auswählen
for i:=1 to 5 do begin
brush.color:=clred;
ellipse(225,65,275,115);
sleep(15000);
brush.color:=clblack;
ellipse(225,65,275,115);
brush.color:=clyellow;
ellipse(225,125,275,175);
sleep(4000);
brush.color:=clblack;
ellipse(225,125,275,175);
brush.color:=clgreen;
ellipse(225,185,275,235);
sleep(8000);
brush.color:=clblack;
ellipse(225,185,275,235);
end;