Unsatisfied forward or external declaration

[simonko]

Delphi-Quellcode:

TQuadrat = class(TGeomFigur)
    protected
      FLaenge : real;
      procedure SetBreite(pbreite :real); virtual;
      procedure SetLaenge(plaenge :real); virtual;
    public
      property Breite : real write SetBreite;
      property Laenge : real write SetLaenge;
    end;
    TRechteck = class(TQuadrat)
    protected
      FBreite : real;
      procedure SetBreite(pbreite :real); override;
      procedure SetLaenge(plaenge :real); override;
    end;

diesen fehler krieg ich bei den 2 letzten proceduren. aber warum?