У TIniFile есть метод - ReadSection - читает всю секцию в TStrings:
Код:
var
sl : TStringList;
ini : TIniFile;
i : Integer;
begin
ini := TIniFile.Create('...');
sl := TStringList.Create;
ini.ReadSection('05.05.2022',sl);
For I := 0 To sl.Count-1 Do
begin
...
end;
ini.free;
sl.free;
end;