Timer mit delay

[Helmi]

Hallo,

ich denke er meinte es so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
     Timer1.Enabled := true;
     CounterVar := 0;
end; 


//Timer = 1000
procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  //nach 1 Sek. Ampel rot
  If CounterVar = 1 then
    begin
      ShapeRot.Brush.Color := clRed;
      ShapeGelb.Brush.Color := clWhite;
      ShapeGruen.Brush.Color := clWhite;
    end;

  //nach 3 Sek. Ampel rot/gelb
  If CounterVar = 3 then
    begin
      ShapeRot.Brush.Color := clRed;
      ShapeGelb.Brush.Color := clyellow;
      ShapeGruen.Brush.Color := clWhite;
    end;

  //nach 4 Sek. Ampel grün
  If CounterVar = 4 then
    begin
      ShapeRot.Brush.Color := clWhite;
      ShapeGelb.Brush.Color := clWhite;
      ShapeGruen.Brush.Color := clLime;
    end;
  
//andere Abläufe gleich wie oben....

  Inc(CounterVar); 
end;

[edit]
Wobei es mit Case schöner ausschaut:

Delphi-Quellcode:

case CounterVar of
  1: begin
       //Ampel rot
     end;
  3: begin
       //Ampel rot/gelb
     end;
  4: begin
       //Ampel grün
     end;
{...}
end;

  inc(CounterVar)