Interface richtig verstanden?

[EdAdvokat]

Delphi-Quellcode:

type

  TVogel = class(TInterfacedObject, IFlieg)
  private
  public
    procedure Flieg;
  end;

  TStorch = class(TVogel)
  private
    FSchnabellaenge: Integer;
    procedure SetSchnabellaenge(const Value: Integer);
  public
    property Schnabellaenge: Integer read FSchnabellaenge write SetSchnabellaenge;
  end;

  TAdler = class(TVogel)
  private
    FDioptrien: Integer;
    procedure SetDioptrien(const Value: Integer);
  public
    property Dioptrien: Integer read FDioptrien write SetDioptrien;
  end;

  TEnte = class(TVogel, ISchwimm)
  private
    FKalorien: Integer;
    procedure SetKalorien(const Value: Integer);
    procedure Schwimm;
  public
    property Kalorien: Integer read FKalorien write SetKalorien;
  end;

implementation

{ TStorch }

procedure TStorch.SetSchnabellaenge(const Value: Integer);
begin
  FSchnabellaenge := Value;
end;

{ TAdler }

procedure TAdler.SetDioptrien(const Value: Integer);
begin
  FDioptrien := Value;
end;

{ TEnte }

procedure TEnte.Schwimm;
begin

end;

procedure TEnte.SetKalorien(const Value: Integer);
begin

end;

{ TVogel }

procedure TVogel.Flieg;
begin

end;

end.

also weil ich die procedure Flieg bereits bei TVogel (ganz unten) erstellt habe, ist sie damit auch Bestandteil von TAdler und TStorch, ohne dass ich sie dort nochmals erstellen muss.