[[Héctor Randolph]]

Que tal si lo intentas de esta forma:

Código Delphi [-]
function IsFolder(Folder: String): Boolean;
var
  Attributes:Word;
begin
  Attributes:=FileGetAttr(Folder);
  Result:=(Attributes and faDirectory)=faDirectory;
end;

Un saludo.