Не получается перебор в обратном направлении

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
 //Тип основных данных списка.
  TData = Integer;
  //Тип указателя на элемент списка.
  TPElem = ^TElem;
  //Тип элемента списка.
  TElem = record
    Data : TData; //основные данные.
    PNext, PPrev : TPElem; //Указатели на следующий и предыдущие элементы.
  end;
  //тип описывающий список.
  TDList = record
    PFirst, PLast : TPElem; //указатели на первый и последний элементы списка.
  end;
 
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
//Инициализация списка. Внимание ! Эту процедуру можно выполнять только
//в отношении пустого списка. Иначе - будут утечки.
procedure Init(var aList : TDList);
begin
  aList.PFirst := nil;
  aList.PLast := nil;
end;
// Перебор элементов в прямом направлении
function priamo(const aList : TDList) : String;
var
  PElem : TPElem;
  i : Integer;
begin
  Result := '';
  if aList.PFirst = nil then begin
    Result := 'Список пуст.';
    Exit;
  end;
 
  PElem := aList.PFirst;
  i := 0;
  while PElem <> nil do begin
    Inc(i);
    if i > 1 then Result := Result + ', ';
    Result := Result + IntToStr(PElem^.Data);
    PElem := PElem^.PNext;
  end;
end;
// Перебор элементов в обратном направлении
function obr(const aList : TDList) : String;
var
  PElem : TPElem;
  i : Integer;
begin
  Result := '';
  if aList.PFirst = nil then begin
    Result := 'Список пуст.';
    Exit;
  end;
 
  PElem := aList.PLast;
while  PElem <> nil do begin
   Result := Result + ', ';
   Result := Result + IntToStr(PElem^.Data);
    PElem := PElem^.PPrev;
end;
end;
 
//Добавление элемента в конец двунаправленного списка.
procedure Add(var aList : TDList; const aData : TData);
var
  PElem : TPElem;
begin
  New(PElem);
  PElem^.Data := aData;
  PElem^.PNext := nil;
  PElem^.PPrev := nil;
  if aList.PFirst = nil then
    aList.PFirst := PElem
  else begin
    aList.PLast^.PNext := PElem;
    PElem^.PPrev := aList.PLast;
  end;
  aList.PLast := PElem;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  L : TDList;
  PElem, PTmp : TPElem;
  i, Sum1, Sum2 : Integer;
  S : String;
begin
  //Начальная инициализация.
  Init(L);
 
  //Читаем числа из Мемо и добавляем их в список.
  //Предполагается, что каждое число в Мемо расположено на отдельной строке.
  for i := 0 to Memo1.Lines.Count - 1 do begin
    S := Memo1.Lines[i];
    if S <> '' then Add(L, StrToIntDef(S, 0));
  end;
  Memo2.Lines.Add('Список в прямом направлении:');
  Memo2.Lines.Add(priamo(L));
 end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
  L : TDList;
  PElem, PTmp : TPElem;
  i, Sum1, Sum2 : Integer;
  S : String;
begin
  Memo2.Lines.Add('Список в обратном направлении:');
  Memo2.Lines.Add(obr(L));
end;
 
end.