FiLo односвязный список

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dwmapi, UxTheme,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  end;
 
  PRecord = ^TRecord;
  TRecord = packed record
    FData: Char;
    FNext: PRecord;
  end;
 
var
  Form1: TForm1;
  StackHead: PRecord = nil;
  i: Char = 'A';
 
implementation
 
{$R *.dfm}
 
// удаление "верхнего" элемента стека
procedure TForm1.Button1Click(Sender: TObject);
var
  Item: PRecord;
begin
  if StackHead <> nil then
  begin
    // получение верхнего элемента
    Item:= StackHead;
    // обновление "головы" стека
    StackHead:= Item^.FNext;
    // удаление
    Dispose(Item);
  end;
  // стек либо изначально пуст, либо может быть пустым
  // в результате удаления последнего элемента. Проверяем это
  if StackHead = nil then MessageDlg('Стек пуст!',mtInformation,[mbOk],0);
end;
 
// добавление элемента
procedure TForm1.Button2Click(Sender: TObject);
var
  Item: PRecord;
begin
  New(Item);
  Item^.FData:= i;   // для примера
  // новый элемент будет ссылаться на текущий верхний либо на NIL, если стек еще пуст
  Item^.FNext:= StackHead;
  // обновляем головной элемент
  StackHead:= Item;
  Inc(i);
end;
 
// вывод информации
procedure TForm1.Button3Click(Sender: TObject);
var
  Item: PRecord;
begin
  ListBox1.Clear;
  if StackHead = nil then Exit;
  // читаем первый элемент
  Item:= StackHead;
  // прогон всего цикла
  while Item <> nil do
  begin
    ListBox1.Items.Add(Item^.FData);
    Item:= Item^.FNext;
  end;
  // список, соответственно, будет выведен в обратном порядке (первым будет показан
  // последний добавленный элемент)
end;
 
// очистка стека
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Item: PRecord;
begin
  if StackHead <> nil then
  repeat
    Item:= StackHead;
    StackHead:= Item^.FNext;
    Dispose(Item);
  until StackHead = nil;
end;
 
end.