Save record to BLOB

[nanix]

Now i can read and write BLOB but static arrays is trouble for me.I don't know how much stuff each computer has its not universal but then again i don't know how to save dynamic arrays to BLOB such as this..

How would i save this and load with dynamic array,i know i have to use setlength when saving.
But what to do when you close program and want to load

Delphi-Quellcode:

type
  TSensor = packed record
    Name    :String[20];
    Value   :String[20];
    Min     :String[20];
    Max     :String[20];
    Average :String[20];
    Delta   :String[20];
    Offset  :String[20];
  end;

  TMonitor = record
    Name   :String[20];
    Sensor :Array of TSensor
  end;

var
Monitor:TMonitor;
Sensor:TSensor;
FMonitoring : array of TMonitor;