Deleting files to Recycle Bin

The only way I can find to send files to the re-cycle bin is by using
HSFileOperation.
Calling HSFileOperation twice in row gives an access violation the second
time.
The fops, of type TSHFILEOPSTRUCTA, parameters are initialised as follows:

wnd = 0
wFunc = FO_DELETE
filename = <filename>
pFrom = <filename>
fFlags = FOF_ALLOWUNDO
fAnyOperationsAborted = FALSE
hNameMappings = nil
pTo = <empty>
lpszProgressTitle = <empty>

fops is a local variable in a button event handler.

Can anyone help?
Thanks
Jon Gray
j...@grays.demon.co.uk