lista plików

Witam uzylem takiego kodu z tej strony:

var
  SR : TSearchRec;
  Found : Integer; // liczba znalezionych plikow
begin
  Found := FindFirst( 'C:\*.*', faAnyFile, SR); // odnajdz
  while (Found = 0) do // dopoki liczba znalezionych plikow nie
// bedzie rowna 0
  begin
    Memo1.Lines.Add('C:' + SR.Name); // dodaj do Memo znaleziony plik
    Found := FindNext(SR); // szukaj dalej
  end;
  FindClose(SR); // zakoncz wyszukowanie
end;

jednakze nie pokazuje on wszystkich plikow. czym jest to spowodowane??np. w folderze cookies