Wieso funktioniert das mit dem Zufall nicht?

[fabgo]

Hallo,

Wieso funktioniert das mit dem Zufall nicht? Es wird immer der 2. Wert ausgeführt!!!

Delphi-Quellcode:

procedure TAmpel2.Timer1Timer(Sender: TObject);      
begin
  if ImAuto1.Left <= 620                               
    then begin                                         
      ImAuto1.Left := ImAuto1.Left +2;
      Timer1.Interval := 10;                    
    end;
  if ImAuto1.Left >= 620                               
    then begin
      ImAuto1.Left := -20;
      Timer1.Interval := 10;                              
    end
      else if (ImAuto1.Left > 88) and (ImAuto1.Left < 174) and (Imgelblinks.Visible = True)
        then begin
          if random(2) >= 1
            then begin
              Timer1.Interval := 10;
            end
              else begin
                Timer1.Interval := 1000;
              end;        end
          else if (ImAuto1.Left > 124) and (ImAuto1.Left < 174)and (Imrotlinks.Visible)
            then begin
              Timer1.Interval := 30;
            end;
end;

habe zusätzlich noch folgendes:

Delphi-Quellcode:

procedure TAmpel2.FormCreate(Sender: TObject);
begin
  randomize;
end;

Wieso funzt das nicht.
Bitte helft mir.
Bastel schon den ganzen Tag!!!

Danke

fabgo