Подскажите, что означает в коде "^; pnext :=pnext^.next;"

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
type
  //Тип контейнера данных для элемента списка.
  TData = String;
  //Тип, описывающий указатель на элемент списка.
  TPElem = ^TElem;
  //Тип описвающий элемент списка.
  TElem = record
    Data : TData;
    Next : TPElem;
  end;
 
var
  //Указатель на начало списка.
  PStart : TPElem = nil;
  //Указатель на конец списка.
  PEnd : TPElem = nil;
 
//Добавление элемента в конец списка.
procedure ListAdd(const aData : TData);
var
  PElem : TPElem;
begin
  New(PElem);
  PElem^.Data := aData;
  if PStart = nil then begin
    //Создание списка из одного элемента.
    PStart := PElem;
    PEnd := PElem;
    PElem^.Next := nil;
  end else begin
    //Добавление элемента в конец списка.
    PElem^.Next := nil;
    PEnd^.Next := PElem;
    PEnd := PElem;
  end;
end;
 
//Удаление списка из памяти.
procedure ListFree;
var
  PNext, PDel : TPElem;
begin
  PNext := PStart;
  while PNext <> nil do begin
    PDel := PNext;
    PNext := PNext^.Next;
    Finalize(PDel^.Data); //Можно писать так: PDel^.Data := '';
    Dispose(PDel);
  end;
 
  PStart := nil;
  PEnd := nil;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //При завершении программы выполняем удаление списка из памяти.
  ListFree;
end;
 
 
//Добавление в динамический список строк из перечня исходных данных.
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do begin
    ListAdd(Memo1.Lines[i]);
  end;
end;
 
//Удаление динамического списка из памяти.
procedure TForm1.Button2Click(Sender: TObject);
begin
  ListFree;
end;
 
//Очистка перечня исходных данных для списка.
procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo1.Clear;
end;
 
//Очистка журнала.
procedure TForm1.Button5Click(Sender: TObject);
begin
  Memo2.Clear;
end;
 
//Вывод всех элементов списка в журнал.
procedure TForm1.Button4Click(Sender: TObject);
var
  PNext : TPElem;
begin
  if PStart = nil then begin
    Memo2.Lines.Add('Список пуст.');
    Memo2.Lines.Add('-------------------------');
    Exit;
  end;
 
  Memo2.Lines.Add('Все элементы списка:');
  PNext := PStart;
  while PNext <> nil do begin
    Memo2.Lines.Add(PNext^.Data);
    PNext := PNext^.Next;
  end;
  Memo2.Lines.Add('-------------------------');
end;
 
//Показать в журнале все слова списка, совпадающие с последним словом.
procedure TForm1.Button6Click(Sender: TObject);
var
  PNext : TPElem;
  i : Integer;
begin
  if PStart = nil then begin
    Memo2.Lines.Add('Список пуст. Действие отменено.');
    Memo2.Lines.Add('-------------------------');
    Exit;
  end;
 
  //Выводим в журнал все слова списка, совпадающие с последним словом.
  PNext := PStart;
  i := 0;
  while PNext <> nil do begin //Если надо учитывать последнее слово.
  //while PNext <> PEnd do begin //Если последнее слово учитывать не надо.
    if PNext^.Data = PEnd^.Data then begin
      Inc(i);
      if i = 1 then begin
        Memo2.Lines.Add('Перечень слов, совпадающих с последним словом:');
      end;
      Memo2.Lines.Add(PNext^.Data);
    end;
    PNext := PNext^.Next;
  end;
 
  if i = 0 then begin
    Memo2.Lines.Add('Нет ни одного слова, которое совпадало бы с последним словом.');
  end else begin
    Memo2.Lines.Add('Количество слов, совпадающих с последним словом = ' + IntToStr(i));
  end;
  Memo2.Lines.Add('-------------------------');
end;
 
end.

PNext := PStart;
  i := 0;
  while PNext <> nil do begin //Если надо учитывать последнее слово.
  //while PNext <> PEnd do begin //Если последнее слово учитывать не надо.
    if PNext^.Data = PEnd^.Data then begin
      Inc(i);
      if i = 1 then begin
        Memo2.Lines.Add('Перечень слов, совпадающих с последним словом:');
      end;
      Memo2.Lines.Add(PNext^.Data);
    end;
    PNext := PNext^.Next;
  end;