Löschen von Files ...., E2003 Undeklarierter Bezeichner: 'Application'

[bernhard_LA]

den Code habe ich aus dieser Quelle https://www.delphi-treff.de/tipps-tr...isse-loeschen/

Delphi-Quellcode:

function DeleteFiles(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;

ich habe das Ganze in eine Unit eingefügt und bekomme beim Übersetzen eine Fehlermeldung

[DCC Fehler] diverse_funktionen.pas(2815): E2003 Undeklarierter Bezeichner: 'Application'

ich würde ungern mehr Parameter im Aufruf übergeben, was wäre der bester Tipp um mein Problem zu beheben