Перечислене всех папок

[doniyor]

Здравствуйте!
Написал по клику следующуу процедуру

var
  searchResult : TSearchRec;

begin
  if FindFirst('С:\*.', faDirectory, searchResult) = 0 then
  begin
    repeat
      Memo1.lines.add(Имя файла = '+searchResult.Name);
      until FindNext(searchResult) <> 0;
      FindClose(searchResult);
  end;

Вопрос - почему первой и второй строкой пишутся точка, потом две точки, хотя подпапки с такми именами нет.

[Stilet]

Потому что . это выход в корень, а .. выход на предидущий уровень. Они всегда были и будут. просто поставь условие, которое будет отсеивать точки.