File Into Trash/de

uses
  ShellAPI, FileUtil, ...;
  
  ...
  
function funDateiInPapierkorbVerschieben(strDateiname: string): boolean;
var
  Dateistruktur: TSHFileOpStruct;
begin
  FillChar(Dateistruktur, SizeOf(Dateistruktur), 0);

  with Dateistruktur do
  begin
    wFunc := FO_DELETE;
    // Lässt Umlaute usw. im Dateinamen zu
    pFrom := PChar(UTF8ToSys(strDateiname));
    fFlags := FOF_ALLOWUNDO + FOF_NOCONFIRMATION + FOF_SILENT;
  end;

  Result := ShFileOperation(Dateistruktur) = 0;
end;
  
  ...