Delphi -- Zeigervariablen???

type
  PElement	= ^TElement;
  TElement	= record
    Contents	: Integer;
    Prev	: PElement; // Zeiger auf Vorgänger
    Next	: PElement; // Zeiger auf Nachfolger
  end;

var
  FirstElement, LastElement : PElement;

function CreateNewElement: PElement;
begin
  // Zuerst Speicher für ein Element ausfassen
  GetMem (Result, SizeOf (TElement));
  Result.Prev := nil;
  Result.Next := nil;
 
  // Haben wir schon andere Elemente?
  if (LastElement = nil) then begin
    // Nein, unser neues Element wird erstes und letztes zugleich
    FirstElement := Result;
    LastElement := Result;
  end else begin
    // Ja, unser Vorgänger wird das alte letzte Element
    Result.Prev := LastElement;
    // Der Nachfolger des alten letzten Elementes sind wir
    LastElement.Next := Result;
    // Und wir sind das neue letzte Element
    LastElement := Result;
  end;
end;

procedure DeleteElement (CurElement: PElement);
begin
  // Wurde überhaupt ein Element übergeben?
  if (CurElement = nil) then
    Exit;
 
  // Spezialfall erstes Element
  if (CurElement = FirstElement) then begin
    // Das neue erste Element wird der Nachfolger des alten
    FirstElement := FirstElement.Next;
    // Kommen noch weitere Elemente?
    if (FirstElement <> nil) then
      // Ja, dann hat unser neues erstes Element keinen Vorgänger
      FirstElement.Prev := nil
    else begin
      // Nein, dann gibt es kein letztes Element mehr
      LastElement := nil;
      // Speicher freigeben
      FreeMem (CurElement);
      Exit;
    end;
  end;
 
  // Spezialfall letztes Element
  if (CurElement = LastElement) then begin
    // Das neue letzte Element wird der Vorgänger des alten
    LastElement := LastElement.Prev;
    // Gibt es noch weitere Elemente?
    if (LastElement <> nil) then begin
      // Ja, aber das neue letzte Element hat keinen Nachfolger
      LastElement.Next := nil;
      // Speicher freigeben
      FreeMem (CurElement);
      Exit;
    end;
  end;
 
  // Normaler Fall "in der Mitte"
  // Unser Vorgänger (CE.Prev) bekommt als Nachfolger unseren Nachfolger
  CurElement.Prev.Next := CurElement.Next;
  // Unser Nachfolger (CE.Next) bekommt als Vorgänger unseren Vorgänger
  CurElement.Next.Prev := CurElement.Prev;
  // Speicher freigeben
  FreeMem (CurElement);
end;