Spiel für Informatik Unterricht!!

[eMGee]

ok danke!! der erste fehler ist weg aber habe immer noch den anderen ....
an den stellen wo ich fett markiert hab jetzt kommt bei TForm1 immer undefinierter bezeichner und bei Image1, Memo1 auch und außerdem noch operator oder semikolon fehlt..

[code]
//---Norden-Button---
procedure TForm1.Button1Click(Sender: TObject);
begin
if (aktuellerRaum.Norden <> nil) then
begin
aktuellerRaum:= aktuellerRaum.Norden;
Image1.Picture.LoadFromFile(aktuellerRaum.Bild);
Memo1.Lines.Add(aktuellerRaum.Beschreibung);
end;
end;

//---Osten-Button---
procedure TForm1.Button2Click(Sender: TObject);
begin
if (aktuellerRaum.Osten <> nil) then
begin
aktuellerRaum:= aktuellerRaum.Osten;
Image1.Picture.LoadFromFile(aktuellerRaum.Bild);
Memo1.Lines.Add(aktuellerRaum.Beschreibung);
end;
end;

//---Sueden-Button---
procedure TForm1.Button3Click(Sender: TObject);
begin
if (aktuellerRaum.Sueden <> nil) then
begin
aktuellerRaum:= aktuellerRaum.Sueden;
Image1.Picture.LoadFromFile(aktuellerRaum.Bild);
Memo1.Lines.Add(aktuellerRaum.Beschreibung)
end;
end;

//---Westen-Button---
procedure TForm1.Button4Click(Sender: TObject);
begin
if (aktuellerRaum.Westen <> nil) then
begin
aktuellerRaum:= aktuellerRaum.Westen;
Image1.Picture.LoadFromFile(aktuellerRaum.Bild);
Memo1.Lines.Add(aktuellerRaum.Beschreibung);
end;
end;