1:
2:
3:
4:
5:
6:
7:
8:

    TfrmStdVor = class(Tform);                // = gemeinsamer Vorfahr
        Function Korr_Pos(....);
 
    TfrmVorAuf = class(TfrmStdVor)        // Nachfahr von TfrmStdVor
         Function Korr_Pos(....);
    TfrmVorArg = class(TfrmStdVor)        // Nachfahr von TfrmStdVor
         Function Korr_Pos(....);                
    TfrmVorLS = class(TfrmStdVor)...etc.pp...					

1:
2:
3:
4:
5:

var
  frmStdVor : frmStdVor;
begin
  frmStdVor := TTfrmVorArg.Create(..);
  frmStdVor.Korr_Pos(....); /Ruft die Methode von **TTfrmVorArg** auf					

1:

form:TfrmStdVor;					

1:

form:=TfrmVorAuf.create;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Type
  TBasisklasse = Class
    Procedure Foo; Virtual;
    Procedure Bar;
  End;

  TKindKlasse = Class (TBasisklasse)
    Procedure Foo; Override;
  End;

  TNeAndereKindKlasse = Class (TBasisklasse)
    Procedure Foo; Override;
  End;

Procedure TBasisKlasse.Foo;
Begin
  ... 
End;

Procedure TBasisKlasse.Bar;
Begin
  Foo; // Ruft die richtige Methode auf, je nachdem von welchem konkreten Basistyp die Klasse ist
End;