Вывести из ini файла в массив

type
  Tnapom = record
    date : TDateTime;
    nap : string;
    tim : TTime;
    mel : string;
end;
var
 napom : array of Tnapom;
 
   procedure save(time:TTime;nap:string;day:TDate;melody:string);
   var
   Ini:TIniFile;
   Path:String;
   tm:string;
   Dsecsion : string;
   begin
     try
       Dsecsion := DateToStr(day);
       Path:=Application.ExeName;
       Path:=ExtractFileDir(Path);
       if Path[Length(Path)]<>'\' then Path:=Path+'\';
       Ini:= TInifile.Create(Path+'nap.ini');
       Ini.WriteTime(Dsecsion,'tm',time);
       Ini.WriteString(Dsecsion,'np',nap);
       Ini.WriteString(Dsecsion,'mel',melody);
        Ini.Free;
     except
        on E: Exception do
            ShowMessage('Ошибка' + #13 + e.Message);
     end;
   end;

if Ini.SectionExists(Dsecsion) then begin
  Napom.Time:=Ini.ReadTime(Dsecsion,'tm',0);
  Napom.nap:=Ini.ReadString(Dsecsion,'np','');
  Napon.melody:=Ini.ReadString(Dsecsion,'mel','');

...
var
  Sections: TStringList;
  Ini: TIniFile;
  napom: array of Tnapom;
  i: Integer;
begin
  Sections:= TStringList.Create;
  Ini:= TIniFile.Create(...);
  Ini.ReadSections(Sections);
  SetLength(napom, Sections.Count);
  for i:= 0 to Sections.Count-1 do
    begin
      napom[i].np:= Ini.ReadInteger(Sections[i], 'np', 0);
      napom[i].mel:= Ini.ReadInteger(Sections[i], 'mel', 0);
      ...
    end;
  Ini.Free;
  Sections.Free;
  ...