Ich würde aber gerne nochmal den ausführlichen sehen. Ohne "case" Befehl.
Es hat wunderbar funktioniert aber was habe ich jetzut falsch gemacht?:
-------------------------------------------------------------------------
Delphi-Quellcode:
procedure TForm1.startClick(Sender: TObject);
begin
if (start.Caption = 'Ampel starten!') //Wenn Caption=Ampel starten!
then begin
start.Caption := 'Ampel stoppen!'; //Dann Caption:=Ampel stoppen!
zeit.Enabled := true; //Dann Timer aktivieren
end
else begin
start.Caption := 'Ampel starten!'; //Sonst Caption:=Ampel starten!
zeit.Enabled := false; //Sonst Timer deaktivieren
end;
end;
procedure TForm1.zeitTimer(Sender: TObject);
begin
if (zeit.Tag= 3)
then
rotgelb.visible:=true;
if (zeit.Tag= 4)
then
gruen.visible:=true;
if (zeit.Tag= 7)
then
gelb.visible:=true;
if (zeit.Tag=8 )
then
rot.visible:=true;
if (zeit.Tag=8 )
then
zeit.Tag:=0;
end;
end.
--------------------------------
zeit recht häufig an undefiniertes Objeakt als der markiert dann den timer. is aber quatsch!
Bitte nochmal um hilfe.
MFG Wargrave
[edit=Admin]Quellcode in Delphi-Tags gesetzt. Künftig bitte selber machen. Danke 
Mfg, Daniel[/edit]