Hi,
herzlich willkommen in der
dp 
!
Müsst ihr das wirklich so machen ?
Das ist sehr umständlich, ich habe hier ein kleines Beispiel, ist aber nicht für die manuelle, sondern für die Automatische Schaltung, denke du kannst dir da das was du brauchst besorgen.
Für das Beispiel brauchst du 3 Shapes.
Delphi-Quellcode:
var
Form1: TForm1;
i: integer;
// ...
procedure TForm1.AmpelTimer(Sender: TObject);
begin
case i of
0:
begin
rot.brush.Color := clRed;
gelb.brush.Color := clOlive;
gruen.brush.Color := $00004000;
inc(i);
form1.refresh;
end;
1:
begin
rot.brush.Color := clred;
gelb.brush.Color := clYellow;
gruen.brush.Color := $00004000;
form1.refresh;
inc(i);
end;
2:
begin
rot.brush.Color := clMaroon;
gelb.brush.Color := clOlive;
gruen.brush.Color := cllime;
form1.refresh;
inc(i);
end;
3:
begin
rot.brush.Color := clMaroon;
gelb.brush.Color := clYellow;
gruen.brush.Color := $00004000;
form1.refresh;
i:=0;
end;
end;
end;