unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    LBImie: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    LBNazwisko: TListBox;
    LBData: TListBox;
    LBUlica: TListBox;
    LBNr: TListBox;
    LBID: TListBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;

//----[Deklaracja rekordu]----------
type Pacjenci = ^TPacjenci;
  TPacjenci = record
    Next: Pacjenci;
    imie: String[20];
    nazwisko: String[20];
    data_ur: String[11];
    ulica: String[15];
    nr_dom: String[6];
    id_lek: String[4];
  end;

  private
    { Private declarations }
  public
    Root: Pacjenci;
    Last: Pacjenci;
  end;

//------------------------------------------------


var Form1: TForm1;
  TF: TextFile;
  NewOne: Pacjenci;
  AtList: Pacjenci;

implementation

{$R *.dfm}

end.