Vererbung, Aggregation, Assoziation?

[mo_greene]

Hallo,
ich wollte mal fragen ob mir jemand den gefallen tun kann und direkt im folgendem Programm zeigen kann wo Vererbungen vorliegen, wo Aggregationen und wo Assoziationen? Wäre ich euch dankbar!

Delphi-Quellcode:

unit View_Control;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, uModell;

type
  TView = class(TForm)
    GroessePnl: TPanel;
    GewichtPnl: TPanel;
    GroesseEdt: TEdit;
    GewichtEdt: TEdit;
    BMIPnl: TPanel;
    AusgabePnl: TPanel;
    RechneBtn: TButton;
    EndeBtn: TButton;
    procedure EndeBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RechneBtnClick(Sender: TObject);
    procedure Datenaktualisieren;
    procedure Maskeaktualisieren;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  View: TView;
  Modell: TModell;
  a : integer;

implementation

{$R *.dfm}

procedure TView.EndeBtnClick(Sender: TObject);
begin
 close;
end;

procedure TView.FormCreate(Sender: TObject);
begin
 Modell := TModell.Create;
end;

procedure TView.Datenaktualisieren;
begin
    Modell.setGroesse(strtoint(GroesseEdt.Text));
    Modell.setGewicht(strtoint(GewichtEdt.Text));
end;

procedure TView.Maskeaktualisieren;
begin
    AusgabePnl.Caption := inttostr(Modell.getBMI);
end;

procedure TView.RechneBtnClick(Sender: TObject);
begin
   Datenaktualisieren;
   Maskeaktualisieren;
end;

end.

Mfg David