Timer macht nicht was er machen soll?!

[Hazel]

Hallo,
bin neu in Delphi und habe von meinem "Lehrer" eine Aufgabe bekommen eine Kreuzung zu programmieren mit Ampeln die per Timer sich aktivieren, aber leider macht der Timer das nicht.

Hier mal mein Code:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Button1: TButton;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    Panel13: TPanel;
    Panel14: TPanel;
    Panel15: TPanel;
    Panel16: TPanel;
    Panel17: TPanel;
    Panel18: TPanel;
    Panel19: TPanel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button2: TButton;
    Timer1: TTimer;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
      private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Visible := true;
Image2.Visible := true;
Image3.Visible := true;
Image4.Visible := true;
Image5.Visible := false;
Image6.Visible := false;
Image7.Visible := false;
Image8.Visible := false;
Image9.Visible := false;
Image10.Visible := false;
Image11.Visible := false;
Image12.Visible := false;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//Platzhalter
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If
Image1.Visible = True and
Image2.Visible = True and
Image3.Visible = true and
Image4.Visible = true
then
begin
Image1.Visible := false;
Image2.Visible := false;
Image3.Visible := false;
Image4.Visible := false;
Image5.Visible := True;
Image6.Visible := false;
Image7.Visible := false;
Image8.Visible := True;
Image9.Visible := false;
Image10.Visible := false;
Image11.Visible := false;
Image12.Visible := false;
end;
end;


end.

Also ich drücke einen Button, der Alle Bilder resettet und das so aussehen lassen soll wie es ist.
Das funktioniert ja auch.
Dann drück ich den nächsten Button der den Timer aktivieren soll.
Hab auch beim Timer im Obejekt insperktor den OneTimer auf Button 3 gestellt, aber es passiert einfach nichts...
Interval auf 3000 gestellt.
Was mache ich falsch?