Case und Schleife??

[Klaus01]

Delphi-Quellcode:

   5: 
    begin 
      Pn_red.color:=clBtnFace; 
      Pn_green.Color:=clBtnFace; 
      Pn_yellow.Color:=clyellow; 
      zaehler:=0;
    end; 
  end;

Sollte doch so gehen, oder?

Grüße
Klaus