[TSHFileOpStruct] AV beim löschen eines Ordners

[xZise]

Mit folgenden Code möchte ich einen Ordner + Inhalt löschen:

Delphi-Quellcode:

function DeleteDirectory(const AFile: string): boolean;
var
  Operation: TSHFileOpStruct;
begin
  with Operation do
  begin
    wFunc := FO_DELETE;
    pFrom := PChar(AFile + #0);
    fFlags := FOF_NOCONFIRMATION or FOF_NOERRORUI;
  end;
  Result := SHFileOperation(Operation) = 0;
end;

Aber es gibt in der vorletzten (+end)/ letzten (-end) Zeile eine AV... Nur warum ?

PS: Es ist egal ob AFile ein schließendes "\" hat oder net...