[F] Programm zum schätzen

[Nemo.A]

Versuch mal:

procedure TForm1.Button1Click(Sender: TObject);
begin
   try
     Eingabe := StrToInt (Edit1.Text);
     if Eingabe = 53434 then Label1.Caption := 'Richtig getippt!';
   except
     Label1.Caption := 'FALSCH!';
  end;
end;