Problem mit eigenem Textadventure in Delphi

[Gragas]

Ich habe es schon mehrmals geschrieben, aber leider wird meine Antwort nie angenommen .
Der Text funktioniert bei mir nämlich immer noch nicht, obwohl ich mittlerweile sowohl einen fertigen Lösungsweg und auch eine Lösung meines Lehrers bekommen habe.
Beide laufen bei mir nicht.
Die Fehlermeldung ist und bleibt die selbe.
Woran liegt das nur?