Можете посмотреть какие файлы там есть:
var files: TStringDynArray;
files := TDirectory.GetFiles(TPath.GetHomePath);
TArray.Sort<string>(files, TComparer<string>.Construct(CompareLowerStr));
for i := 0 to Length( files) - 1 do
begin
Memo1.lines.add(files);
end;