Variable

[Klimpel]

Ich will erstmal nur von auf grün wechsel;



procedure TForm1.StartClick(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
a:=2;

grün.Hide;

Image1.Picture.LoadFromFile('Ampel.jpg');
Image1.stretch:=true;
grün.Picture.LoadFromFile('grün.bmp');
rot.Picture.LoadFromFile('rot.bmp');

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin



If a = 1 then begin rot.Visible:=true; grün.Visible:=false;
a:=2;
end;
If a = 2 then begin rot.visible:=false; grün.Visible:= true;
a:=1;


end;

end;
end.




Jetzt hab ich nur irgendwie das problem das die Ampel die ganze ZEit grün bleibt...der timer funktioniert zwar aber springt immer wieder nur auf grün...