Werte an Objekt übergeben

[Martin.Ghosts]

Hallo erst mal an alle,

ich möchte Werte an ein selbst erstelltes Objekt über eine Procedure übergeben.

eigene Klasse:

Delphi-Quellcode:

type
  TRoom = class
    Description: String;
    Norden, Osten, Sueden, Westen: TRoom;
    procedure SetAusgaenge (norden, osten, sueden, westen: TRoom);
  end;

aufrufen der Procedure:

Delphi-Quellcode:

procedure TForm1.CreateComputerRoom;
begin
  Computerraum:= TRoom.Create;
  Computerraum.Description:= ('Du stehst im Computerraum!');
  Computerraum.SetAusgaenge(Kueche, nil, nil, nil);
end;

Procedure:

Delphi-Quellcode:

procedure TRoom.SetAusgaenge(norden, osten, sueden, westen: TRoom);
begin
  self.Norden:= norden;
  self.Osten:= osten;
  self.Sueden:= sueden;
  self.Westen:= westen;
end;

Das Problem ist folgendes, dass in diesem Fall Computerraum.Norden = nil ist obwohl er eigendlich = Kueche sein sollte. Habe schon mal gestern eine Stunde versucht, einen Fehler zu finden und heute einfach nochmal den Quelltext neu getippt, aber ohne Erfolg.
Kann jemand einen Fehler von mir erkennen?

Vielen Dank schon mal, Martin.Ghosts