unit1

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls, Vcl.Menus;

type
  TS2 = class(TForm)
    Table: TStringGrid;
    Add_Button: TButton;
    Label1: TLabel;
    Label2: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure Add_ButtonClick(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  Subscriber = record
    Name: String;
    PhoneNumber: String;
  end;

type
  PNode = ^Node;
  Node = record
    Data : Subscriber;
    Next : PNode;
  end;

var
  S2: TS2;
  Head: PNode;
  IsNamed: Boolean;

implementation
uses Unit2, Unit3;
{$R *.dfm}

procedure TS2.Add_ButtonClick(Sender: TObject);
begin
  AddForm.Show;
end;

procedure TS2.FormClick(Sender: TObject);
var
  Current: PNode;
begin
  New(Current);
  Current := Head;
  While(Current <> nil) do
  begin
    ShowMessage(Current.Data.Name+ ' ' + Current.Data.PhoneNumber);
    Current := Current.Next;
  end;
end;

procedure TS2.FormCreate(Sender: TObject);
begin
  RowCount := 0;
end;

procedure TS2.N1Click(Sender: TObject);
begin
  FuncForm.Show;
  IsNamed := True;
  FuncForm.Label1.Caption := 'Введите фамилию';
end;

procedure TS2.N2Click(Sender: TObject);
begin
  FuncForm.Show;
  IsNamed := False;
  FuncForm.Label1.Caption := 'Введите номер';
end;

end.