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

end.
mfg