TFormProhlizet = class(TForm)
    LbPokoj: TLabel;
    LbLeky: TLabel;
    LbDoba: TLabel;
    LbPrijmeni: TLabel;
    BtNext: TButton;
    BtBack: TButton;
    BtKonec: TButton;
    BtErase: TButton;
    LbJmeno: TLabel;
    procedure BtNextClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BtBackClick(Sender: TObject);
    procedure BtEraseClick(Sender: TObject);
    procedure BtKonecClick(Sender: TObject);

procedure GetData (i: integer);
begin
  LbJmeno.Caption:='Jméno : ' + pacos[i].Jmeno;
  LbPrijmeni.Caption:='Příjmení : '+pacos[i].Prijmeni;
  LbPokoj.Caption:='č. pokoje : '+pacos[i].Pokoj;
  LbLeky.Caption:='Léky : '+pacos[i].Leky;
  LbDoba.Caption:='Užit : '+pacos[i].Doba;
end;