E2064 Der linken Seite kann nichts zugewiesen werden

[Mik]

Code:

{Bildschirm *******************************************************************}
type Bildschirm = class (TObject)

  public
    constructor init;
    procedure loescheAlles;
    function breite:GanzeZahl;
    function hoehe:GanzeZahl;
    destructor gibFrei;
  protected { Protected,da diese Methode nur in dieser Unit verfügbar sein soll}
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
end;

Das ist der Teil aus der Unit, in welcher die Klasse Bildschirm festgelegt ist.

Code:

interface

uses mUhr,mAmpel,mAuto,mListe,mSum;

    type TKreuzung = class

        private

           meinStift:Stift;
           meinBildschirm:Bildschirm;
           Auto1:TAuto;
           Ampel1:TAmpel;
           Ampel2:TAmpel;
           dieMaus:Maus;
           dieTastatur:Tastatur;

         public

           constructor init;
           destructor gibfrei;
           procedure zeichnen;
     end;