Kreuzung - Timer funktioniert nicht

[DeddyH]

Wird das jetzt wieder so ein "negative Zahlen"-Thread? Zum besseren Verständnis hier mein Timer-Ereignis noch einmal in längerer Form:

Delphi-Quellcode:

procedure TFormAmpel.Timer1Timer(Sender: TObject);
begin
  case FZustand of
    azRot    : FZustand := azGelbRot;
    azGelbRot: FZustand := azGruen;
    azGruen  : FZustand := azGelb;
    azGelb   : FZustand := azRot;
  end;
  if (FZustand = azRot) or (FZustand = azGelbRot) then
    shpRot.Visible := true
  else
    shpRot.Visible := false;
  if (FZustand = azGelb) or (FZustand = azGelbRot) then
    shpGelb.Visible := true
  else
    shpGelb.Visible := false;
  if FZustand = azGruen then
    shpGruen.Visible := true
  else
    shpGruen.Visible := false;
end;

Ist das so verständlicher?