if FindFirst(IncludeTrailingPathDelimiter(d) + '*',
faAnyFile and (not faDirectory), SR) = 0 then
repeat
x.Add(SR.Name);
until FindNext(SR) <> 0;
FindClose(SR);
if FindFirst(IncludeTrailingPathDelimiter(d) + '*',
faAnyFile and (not faDirectory), SR) = 0 then
repeat
x.Add(SR.Name);
until FindNext(SR) <> 0;
FindClose(SR);