Problem mit eigenem Textadventure in Delphi

[Gragas]

so, habe nun nochmal alles ein wenig ordentlicher angeordnet und versucht endlich alle unwichtigen ends etc wegzulassen.
Aber es klappt immer noch nicht.