Из кода вообще не видно - похоже что при вызове
FindFiles происходит заполнение листвью и файлиста содержимым первого, а на самом деле такое не происходит - задумка аффтара и есть задумка автора, присутствуют непонятки, и есть подозрение, что код нужно немного исправить в этом месте
Код:
...
if (WFD.dwFileAttributes and faDirectory)<>faDirectory then{Проверка что это не папка}
begin
Caption:=ChangeFileExt(WFD.cFileName,'');
FileList.Add(WFD.cFileName);
SubItems.Add('...');
SubItems.Add('...');{Размер файла}
end else
...