function RecycleFile(FileName: string): Boolean;
var FOS: TSHFileOpStruct;
begin
  FillChar(FOS, SizeOf(FOS), 0);
  with FOS do
  begin
    wFunc:= FO_DELETE;
    pFrom:= PChar(FileName + #0#0);
    fFlags:= FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_NOERRORUI;
  end;
  Result:= (ShFileOperation(FOS) <> 0);
end;