Unterordner in Array speichern

[delphi-n]

wieso klappt eig.

Delphi-Quellcode:

procedure GetDirectories(DirName: string; const sl: TStrings);
var Rec: TSearchRec;
begin
  sl.Clear;
  DirName := IncludeTrailingPathDelimiter(DirName);
  if FindFirst(DirName + '*.*', faDirectory, Rec) = 0 then
    try
      repeat
        if (Rec.Name <> '.') and (Rec.Name <> '..') and ((Rec.Attr and faDirectory) = faDirectory) then
          sl.Add(Rec.Name);
      until FindNext(Rec) <> 0;
    except   //(statt finally)
      ShowMessage('Kein Ordner gefunden'); 
      SysUtils.FindClose(Rec);
    end;
end;

nicht?