New/de

var
  intI: ^Integer;

begin
  ...
  if assigned(intI) then ... // Prüft, ob intI eine Adresse zugewiesen wurde
  ...
  new(intI); // Weist intI eine gültige Adresse zu
  ...
  dispose(intI); // Gibt die Adresse wieder frei
  ...

type
  PListItem = ^TListItem;
  TListItem = record
    data: string;
    next: PListItem;  // Verweis auf das nächste Element
  end;

var
  Liste: PListItem;

begin
  ...
  New(Liste^.next);          // Fügt der Liste ein neues Element hinzu
  Liste^.next^.data := '';   // Leert das Element
  Liste^.next^.next := nil;  // setzt den nachfolgenden Zeiger zur Sicherheit auf nichts
  ...
  dispose(Liste);            // Gibt die Liste wieder frei
  ...