[BuTeK22]

Вот что у меня

Код:

var
 SR:TSearchRec;
 FindRes:Integer; // переменная для записи результата поиска
begin
 ListBox1.Clear;
 FindRes:=FindFirst('F:\Скачка\'+'\*.*',faAnyFile,SR);
 while FindRes=0 do // пока мы находим файлы (каталоги),
  begin             // то выполнять цикл
   // если найденный элемент каталог и
   if ((SR.Attr and faDirectory)=faDirectory) and
   // он имеет название "." или "..", тогда:
   ((SR.Name='.')or(SR.Name='..')) then
    begin
     FindRes:=FindNext(SR); // продолжить поиск
     Continue; // продолжить цикл
    end;
   ListBox1.Items.Add(SR.Name+'                     '
     +IntToStr(SR.Size)+'  Bite');// добавление в список найденного эл-та
   if Application.Terminated then Break;
   Application.ProcessMessages;
   FindRes:=FindNext(SR); // продолжение поиска по заданным условиям
  end;
 FindClose(SR); // закрываем поиск
 Label1.Caption:='Items: '+IntToStr(ListBox1.Items.Count);
end;

Админ: Пользуемся тегами, при рецедиве последуют санкции.