ListFolders function

[CarbonMan]

I want to get a listing of only folders but when I use ListFolders, I'm getting folders and files. Am I doing something wrong?

procedure Button1OnClick(Sender: TObject);
var fullPath : String;
var OK : Boolean;
var folderList : TStringList;
var folderListAsString : String;
var err : Integer;

begin

fullPath := 'D:\';

OK := SelectDirectoryEX('Select the directory you wish to get a list of.',fullPath);

if (not OK) then
 ExitProcess(0);

// GET LIST OF FOLDERS ONLY
folderList := ListFolders(fullPath+'\', false);

folderList.Sort();
folderListAsString := folderList.TEXT;
Delete(folderListAsString,1,7);

ShowMessage(folderListAsString);

SaveStringToFile(RepConst('%SRCDIR%')+'\list.txt',folderListAsString,false);
ShellExec(RepConst('%WIN%\notepad.exe'),RepConst('%SRCDIR%\list.txt'),RepConst('%SRCDIR%'),SW_SHOWNORMAL,err);
ExitProcess(0);
end;