Problem mit eigenem Textadventure in Delphi

[Bummi]

Tips hast Du doch bis zum Abwinken, fang doch mal mit dem Umbau an, als erstes
den Deklarationsblock z.B. so umbauen

Delphi-Quellcode:

type
TRaum = class
Beschreibung : string;
FotoReferenz : String;
Gegenstand : String;
Norden, Sueden, Westen, Osten : TRaum;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure setAusgaenge (norden, sueden, westen, osten, hoch, runter : TRaum);
end;

TRucksack = Class 
Item : Array [1..5] of String; 
procedure hinzufuegen (S:String); 
function ausgeben : String; 
Function voll: boolean; 
end; 

TForm2 = class(TForm)
Edit1: TEdit; 
Button1: TButton; 
Memo1: TMemo; 
Image1: TImage; 
procedure Button1Click(Sender: TObject); 
procedure FormCreate(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure Button5Click(Sender: TObject); 
procedure Button4Click(Sender: TObject); 
procedure Button3Click(Sender: TObject); 
private 
{ Private-Deklarationen } 
public 
{ Public-Deklarationen } 
end;