Kind as Opa innerhalb der Deklerartion

[Aphton]

Delphi-Quellcode:

  TOpa = class
  public
    procedure MeinName(); virtual;
  end;

  TVater = class( TOpa )
  public
    procedure MeinName(); override;
  end;

  TKind = class( TVater )
  public
    procedure MeinName(); override;
  end;

...
procedure TForm1.FormCreate(Sender: TObject);
var
  k: TKind;
begin
  k := TKind.Create;
  k.MeinName;
  k.Free;
end;

{ TOpa }
procedure TOpa.MeinName;
begin
  ShowMessage( 'Ich bin dein Opa' );
end;

{ TVater }
procedure TVater.MeinName;
begin
  inherited;
  ShowMessage( 'Ich bin dein Vater, krchh (:D)' );
end;

{ TKind }
procedure TKind.MeinName;
begin
//  inherited;
  asm
    call TOpa.MeinName
  end;
  ShowMessage( '(Kind:) a gugugugu' );
end;