Testdatei im System 32 löschen

[BornToBeBreit]

Hey, ich versuche grad mit

Delphi-Quellcode:

function DeleteFile(const AFile: string): boolean;
var
 sh: SHFileOpStruct;
begin
 ZeroMemory(@sh, sizeof(sh));
 with sh do
   begin
   Wnd := Application.Handle;
   wFunc := fo_Delete;
   pFrom := PChar(AFile +#0);
   fFlags := fof_Silent or fof_NoConfirmation;
   end;
 result := SHFileOperation(sh) = 0;
end;

if deletefile(GetSystemDir+'\datei.txt') then
showmessage'datei gelöscht';

aber er löscht sie einfach nicht ...