Delphi-PRAXiS - Delphi Form5 öffnet sich ungewollt automatisch

Ich habe ein Problem, nämlich wenn ich mein Programm öffne dann öffnet sich komischerweise auch Form5. Aber die soll sich erst nach einem klick auf Label 1 öffnen. Kann mir jemand helfen?

Code:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, ComCtrls, jpeg, ExtCtrls, URLMon, Buttons;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    StatusBar1: TStatusBar;

    Image1: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure StatusBar1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Label1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

  var Datei,Ziel:PChar;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.StatusBar1Click(Sender: TObject);

var List: TStrings;

begin

  ShowMessage('ACHTUNG: Das Programm kann kurz nicht reagieren!!');

  try

    Datei := 'http://4typen.4t.funpic.de/update/update.txt';

    Ziel := 'update.txt';

    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);

    except

    ShowMessage('Ein Fehler ist aufgetreten!');

end;

begin

List := TStringList.Create;

try

    List.LoadFromFile('update.txt');

    if List.Count>0 then

    Label2.Caption:=List[0];

finally

  List.Free;

end;

end;

if StrToInt(Label2.caption) > StrToInt(Label1.caption) then

Form4.Show

else

ShowMessage('Es ist kein Update nötig! Die Software ist auf dem neusten Stand!');

DeleteFile('update.txt');

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

    Datei := 'http://4typen.4t.funpic.de/update/Generator_neu.exe';

    Ziel := 'Generator_neu.exe';

    UrlDownloadToFile(nil, Datei, Ziel, 0, nil);

    ShowMessage('Das Update wurde fertig heruntergeladen und kann nun verwendet werden!');

    Close;

end;

procedure TForm1.Label1Click(Sender: TObject);

begin

Form5.Show;

end;

end.