[lmikle]

Честно говоря, не понял зачем такие сложности.
Ну и функцию, наверное, ты не совсем правильно используешь.
На дельфях это будет выглядеть так:

Код:

var 
  I : Integer;
  F : TSearchRect;
  iFound : Integer;
begin
  I := 0;
  iFound := FindFirst(Path,faAnyFile,F);
  While iFound = 0 Do
    Begin
       If ((F.Attr And faDirectory) <> 0) And 
          (F.Name <> '.') And
          (F.Name <> '..') Then
         Begin
           Inc(I);
           List[i] := F.Name;
         End;
       iFound := FindNext(F);
    End;
  FindClose(F);