Hmm Delphi na to neni zrovna optimalni, nejsem si vedom nejake funkce, ktera by vratila seznam souboru v adresari, takze tam musis pouzit jeho komponenty
DriveComboBox, DirectoryListBox, FileListBox, ktere spolu provazes pres DirList u DriveComboBox a FileList u DirectoryListBox,
pak si budes zjistovat pocet souboru v danem adresari, coz bude maximalni generovane cislo a budes si muset zjistovat, jestli to cislo je uz generovane, pokud ano, vygenerujes znova a pak uz jen nactes ty soubory, podle cisel, ktere jsi vygeneroval