Хранение малого количества данных без БД

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  uKBDynamic, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  struct = record
    num: integer;
    str: string;
  end;
  karr = array of struct;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  k: karr;
  i: integer;
  s: TFileStream;
  memotext: string;
begin
  SetLength(k,25);
  Randomize;
  for i := Low(k) to High(k) do begin
    k[i].num:=random(100);
    k[i].str:='hello world' + IntToStr(i);
    memotext := memotext + Format('%d - %s '#13#10,[ k[i].num, k[i].str ]);
  end;
 
  Memo1.text:= memotext;
 
  s:=nil;
  try
    s:= TFileStream.Create('hello.bin',fmOpenReadWrite or fmCreate);
    TKBDynamic.WriteTo(s, k, TypeInfo(karr)); // << запись данных
  finally
    s.free;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  k: karr;
  i: integer;
  s: TFileStream;
  memotext: string;
begin
  s:=nil;
  try
    s:= TFileStream.Create('hello.bin', fmOpenReadWrite);
    TKBDynamic.ReadFrom(s,k,TypeInfo(karr));  // << чтение данных
    for i := Low(k) to High(k) do begin
      k[i].num:=random(100);
      k[i].str:='hello world' + IntToStr(i);
      memotext := memotext + Format('%d - %s '#13#10,[ k[i].num, k[i].str ]);
    end;
    Memo1.text:= memotext;
  finally
    s.Free;
  end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo1.Clear;
end;
 
end.