Определение количества файлов в папке по таймеру

[artemavd]

Доброе утро! Нужна ваша небольшая помошь с кодом. Задача: сделать в таймере сканирование папки на определение количества файлов в указанной папке и выводит с интервалом 10 в Lable6. Вот как пробую сделать через TStringList:

procedure TForm1.Timer2Timer(Sender: TObject);
var
 SR: TSearchRec;
 FindRes:Integer;
 kol: TStringList;
begin
 FindRes:=FindFirst(Form1.RzURLLabel3.Caption + '*.*',faAnyFile,SR);
 while FindRes = 0 do
 begin
  if (SR.Name <> '.') or (SR.Name <> '..') then
  begin
   kol.Add(SR.Name);
   Form1.Label6.Caption:=IntToStr(kol.Count);
   FindRes:=FindNext(SR);
  end;
 end;
 FindClose(SR);
end;

Выдает ошибку на выделенной строчке. Заранее спасибо.

[Serge_Bliznykov]

это объект. Его же предварительно надо создать!

kol := TStringList.Create;

[artemavd]

Да, точно. Как я мог забыть сделать это. Наверное потому что первый раз решил воспользоваться самостоятельно TStringList'ом

[SERG1980]

Да и уничтожать его не забывайте

FreeAndNil(kol)