Anfängerfrage zu try und except

[sui]

Moin,

ich dacht, ich fang jetzt auch mal an, selber einfache Dinge zu schreiben.
Ich will so was wie einen Passwortschutz machen. Jedesmal wenn das Passwort richtig
eingegeben ist, soll ein 2. Formular geöffnet werden, das Hauptprogramm. Aber es
hakt schon, ich weiss nur einfach nicht wo.

Code:

var
  Form1: TForm1;
  Zensur: Integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
Zensur := StrtoInt (Edit1.text);
if Zensur = 1 then Form2.ShowModal;
label1.caption := 'Passwort richtig';
  except
label1.caption := 'Passwort falsch';
end;
end;


end.