1:
2:
3:
4:

[Filename]
filename_1 = datei.doc
filename_2 = datei2.doc
....					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var fname: Array of String;

procedure TForm1.LoadIni;
begin
 ini := TIniFile.Create(pdir + '\filelist.ini');
 max := ini.ReadInteger('Filname', 'Items', 1);
 for i := 1 to max do fname[i] := ini.ReadString('Filename', 'File_' + IntToStr(i), 'na');
 ini.Free;
end;					

1:

var fname: Array[1..10000] of String;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.LoadIni; 
begin 
 ini := TIniFile.Create(pdir + '\filelist.ini'); 
 max := ini.ReadInteger('Filname', 'Items', 1);
 SetLength(fname, max); // <-- Anzahl der Einträge im Array
 for i := 1 to max do fname[i] := ini.ReadString('Filename', 'File_' + IntToStr(i), 'na'); 
 ini.Free; 
end;					

1:
2:

FileList := TStringList.Create;
ini.ReadSectionValues('Filename', FileList);					

1:
2:
3:
4:

for i:=0 to FileList.Count -1 do
begin
  FileName := FileList.Values[FileList.Names[i]];
end;