[roman]

Otra opción:

Código Delphi [-]
var
  Attributes: Cardinal;

begin
  Attributes := GetFileAttrributes('archidir');

  if Attributes and FILE_ATTRIBUTE_DIRECTORY <> 0 then
    ShowMessage('Es un directorio')
  else
    ShowMessage('No es un directorio');
end;

// Saludos