removedir funzt nicht

[ichbins]

wie der Titel schon sagt:
Ich verwende den folgenden Code:

Delphi-Quellcode:

if not removedir(dirs[i]) then
  raise exception.Create('Fehler beim Löschen.');

dirs[i] existiert (mit [showmessage] und [if directoryexists then showmessage] überprüft)

Ich verwende diesen Befehl in einer selbsterstellten Unit, die folgendes in den Uses stehen hat:

Delphi-Quellcode:

uses 
  filectrl, dialogs, classes, sysutils, forms;

Forms und dialogs nur temporär für application.processmessage und showmessage.

Es wird immer eine Exception ausgelöst.

An was könnte das liegen?