Вместо
* Обработка спецификайии результирующих файлов
IF tnOper = 3
lcSHFO = lcSHFO + BINTOC(0, '4RS') && для операции удаления
ELSE
tcTo = tcTo + CHR(0) + CHR(0) && Дописываем нули
lnLenTo = LEN(tcTo) && Длина результирующей строки
hGlobalTo = GlobalAlloc(0x0040, lnLenTo) && Выделяем для неё блок памяти
SYS(2600, hGlobalFrom, lnLenFrom, tcFrom) && и копируем туда строку
lcSHFO = lcSHFO + BINTOC(hGlobalTo, '4RS') && Поле pTo
ENDIF
lnFlag = 8 + 256
lcSHFO = lcSHFO + BINTOC(lnFlag, '2RS') && Поле fFlags
lcSHFO = lcSHFO + REPLICATE(CHR(0), 12) && Последние 3 поля структуры

меняем на это

* Обработка спецификайии результирующих файлов
IF tnOper = 3
lcSHFO = lcSHFO + BINTOC(0, '4RS') && для операции удаления
ELSE
tcTo = tcTo + CHR(0) + CHR(0) && Дописываем нули
lnLenTo = LEN(tcTo) && Длина результирующей строки
hGlobalTo = GlobalAlloc(0x0040, lnLenTo) && Выделяем для неё блок памяти
SYS(2600, hGlobalTo , lnLenTo , tcTo) && и копируем туда строку
lcSHFO = lcSHFO + BINTOC(hGlobalTo, '4RS') && Поле pTo
ENDIF
lnFlag = 8 + 256
lcSHFO = lcSHFO + BINTOC(lnFlag, '2RS') && Поле fFlags
lcSHFO = lcSHFO + REPLICATE(CHR(0), 12) && Последние 3 поля структуры