Накатал не большую длл. удаляет файл методом Гутмана.
скачать http://splashed.ucoz.ru/Erase.dll
Как вызывать:
импортируем по имени Erase.
Процедура имеет один флаг fn:string; имя удаляемого файла.
Про статическую или динамическую подгрузку  можно найти в сети.