[Sharky]

Всем привет
вообщем вот что:
Ищю я директории в какой то папке и добавляю найденные имена папок в массив строк . Первые два элемента у меня равны '.' и '..' ну я знаю что это родительский каталог .Так вот суть проблемы: я пытаюсь не записывать эти строки в мой массив
вот как я это делаю

Код:

procedure findDirList(Path:Pchar; var list:TStringli
var
 c:char;
 F : TSearchRec;
 i:integer;
begin
 findfirst(Path,faDirectory,F);
 i:=1;
 if (F.name <> '.')  and ( F.name <> '..')
 then
 List[i]:=f.name;
 repeat
  if list[i]<>list[i-1] then
   begin
    FindNext(F);
    if (F.name <> '.') and ( F.name <>'..') then
    List[i+1]:=F.name;
    inc(i);
   end
  else
  break
....

Вообщем всё равно записываются в 1 и 2 элементы точки
я уж и засекал номер символа через орд и зажав альт писал в условии но не пашет все равно
Прогу пишу я на турбо паскале