Timer VErständnis Frage!

[Wargrave]

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]