Wie Greife ich auf Methode der Vor vor gänger klasse zu ?

[Corpsman]

Ich selbst ging ja davon aus das es nicht geht.

Also ich habe mal Folgendes Gekodet :

Delphi-Quellcode:

Unit Unit1;

Interface

Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

Type
  TForm1 = Class(TForm)
    Button1: TButton;
    Procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  End;

  a = Class
    Procedure d;
  End;

  b = Class(a)
    Procedure d;
  End;

  c = Class(b)
    Procedure d;
  End;

Var
  Form1: TForm1;

Implementation

{$R *.DFM}

Procedure a.d;
Begin
  showmessage('a');
End;

Procedure b.d;
Begin
  showmessage('b');
End;

Procedure c.d;
Begin
  (self As a).d;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Var
  z: c;
Begin
  z := c.create;
  z.d;
  z.free;
End;

End.

Was passiert wenn ich auf den Button drücke ist ein Stack overflow => es geht nicht.