procedure RecycleFile(s : string);
var
  SHFileOpStruct : TSHFileOpStruct;
begin
  with SHFileOpStruct do
  begin
    Wnd := 0;
    wFunc := FO_DELETE; // we want to delete a file...
    pFrom := PChar(s+#0+#0);  //... this file ...
    pTo := nil;
    fFlags := FOF_ALLOWUNDO; //... able to "Undo" (recycle)
    hNameMappings := nil;
    lpszProgressTitle := nil;
  end;
  SHFileOperation(SHFileOpStruct); // to the Recycle Bin
end;