Delphi-Quellcode:
wait(3);
sh_green.Visible := false;
sh_yellow.Visible := true;
wait(3);
sh_yellow.Visible := false;
sh_red.Visible := true;
wait(3);
sh_yellow.Visible := true;
wait(3);
sh_red.Visible := false;
sh_yellow.Visible := false;
sh_green.Visible := true;
application.progessApplication (schlagt mich ich bin zu müede und kan ndas wort application nicht mehr schreiben ^^) fehlt da immer nach den schaltungen hischreiben und wuppi