Anfängerfrage zu try und except

[Meflin]

in deinem beispiel müsste das wohl eher so heissen:

Delphi-Quellcode:

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