IdFTPServer: Fehler direkt nach dem Login???

[romber]

Hallo!

Ich habe mir einen kleinen FTP-Server mit TIdFTPServer gebastelt und teste ihn mit Windows Explorer.
Nach dem Login sollten normalerweise die Ornder und Dateien aufgelistet werden, die in dem selben Ordner liegen, wie die Server-Datei. Passiert aber nicht. Stattdesen bekomme ich eine Fehlermeldung vom Explorer:

Beim Öffnen des Ordners auf dem FTP-Server ist ein Fehler aufgetreten.
Stellen Sie sicher, dass Sie die erforderlichen Zugriffsrechte für den Ordner haben.

Details:
In den Microsoft-Interneterweiterungen ist ein interner Fehler aufgetreten.

Was ist das? Mache ich etwas falsch? Welche Zugriffsrechte?
Hier meine Login-Kode:

Delphi-Quellcode:

procedure TForm1.FTPServerUserLogin(ASender: TIdFTPServerContext; const AUsername, APassword: string; var AAuthenticated: Boolean);
begin
  AAuthenticated := false;
  if AUsername = 'system' then
  begin
    AAuthenticated := FTPAdminLogin(APassword);
    if not AAuthenticated then
    exit;
    ASender.HomeDir := '\';
  end;
end;