1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

type
  TListe = class

  protected
   zInhalt: TObject;
   znext: TListe;
   zprev: Tliste;

 public
   constructor create(plast: TListe; pInhalt: TObject);
[...]					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

type
  PTListe = ^TListe; //Zeiger auf eine TListe
  TListe = class

  protected
    zInhalt: TObject;
    znext: PTListe;
    zprev: PTliste;

  public
    constructor Create(plast: PTListe; pInhalt: TObject);
  [...]
end;{class.TListe}

var
  ListenAnfang, ListenEnde: PTListe;					

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

constructor TListe.Create(plast: PTListe; pInhalt: TObject);
begin
  zInhalt:= pInhalt; //Inhalt übernehmen
  zprev:= plast; //auf vorherigen zeigen
  New(znext); //initialisiert Pointer für nächsten
  znext^.Create(zprev^.znext, zInhalt);
    //zprev^.znext ist DIESER Zeiger, der ja dann der vorherige ist
end;{constructor.TListe.Create}