Есть такой код:
LOCAL Debug, replicate, con, error_message, otvet_message, oper, string, sec, _filedbg, _seco1, _seco2, cr
PRIVATE key1, key2
Debug=.f. && работа с отладочными копиями dbf
STORE '' TO error_message, otvet_message
_filedbg='\\servdos\temp\debugstxt\Проверка MTClib.txt'
cr=CHR(13)+CHR(10)
STORE SECONDS() TO _seco1, _seco2
=STRTOFILE(cr+'Start at '+TTOC(DATETIME())+cr, _filedbg,1)
max_id=-1

If sql_21("Select vcx, vct from glossary where name = 'MTCLIB'", '_gls')
try
COPY MEMO vcx TO mtclib.vcx
COPY MEMO vct TO mtclib.vct
CATCH TO _catch
=STRTOFILE('Ошибка Copy memo'+cr, _filedbg,1)
ENDTRY

IF USED('_gls')
USE IN _gls
Endi
SELECT sql_zapr
prvlib=''
IF FILE('mtclib.vcx') AND FILE('mtclib.vct')
try
IF !'MTCLIB' $ SET('classlib')
SET CLASSLIB TO mtclib ADDITIVE
Endi
prvlib=CREATEOBJECT('SetPrvLib')
CATCH TO _catch
prvlib=''
=STRTOFILE('Ошибка Createobject'+cr+catchErr(_catch)+cr, _filedbg,1)
ENDTRY
ENDIF

IF 'MTCLIB' $ SET('Classlib')
=STRTOFILE('Библиотека MTCLIB подключена'+cr, _filedbg,1)
ELSE
=STRTOFILE('Библиотека MTCLIB НЕ подключена'+cr, _filedbg,1)
ENDIF

IF TYPE('prvlib') = 'O'
=STRTOFILE('Объект PrvLib создан'+cr, _filedbg,1)
ELSE
=STRTOFILE('Объект PrvLib НЕ создан'+cr, _filedbg,1)
Endi
ENDIF

IF FILE('mtclib.vcx') AND FILE('mtclib.vct')
TRY
_line='1'
RELEASE prvlib
_line='2'

IF 'MTCLIB' $ SET('classlib')
_line='3'
RELEASE CLASSLIB mtclib
ENDIF
_line='4'
IF 'MTCLIB' $ SET('classlib')
=STRTOFILE('Библиотека MTClib из памяти НЕ удалена'+cr, _filedbg,1)
else
=STRTOFILE('Библиотека MTClib из памяти удалена'+cr, _filedbg,1)
ENDIF
_line='5'
ERASE mtclib.vcx
_line='6'
ERASE mtclib.vct
_line='7'
CATCH TO _catch
=STRTOFILE('Ошибка Erase: _line='+_line+cr+catchErr(_catch)+cr, _filedbg,1)
Endtry
Endi


wait clear
SELECT SQL_zapr
*-------------------------------------------------------

На выходе получаю лог:
Start at 25/11/2013 11:58:44
Библиотека MTCLIB подключена
Объект PrvLib создан
Библиотека MTClib из памяти удалена
Ошибка Erase: _line=5
Ошибка :
message=Файл в настоящее время используется.
procedure=prog002
lineno=66
linecontents=
details=


Второй день не могу подчистить за собой библиотеку.

Prvlib.Init:

*22.11.2013
this.addproperty('ParentAlias',ALIAS())
this.addproperty('NppInProv',0)
This.AddProperty('ProvTmp',SYS(2015))
CREATE CURSOR (This.ProvTmp) (npp C(3), db C(4), kr C(4), stdb C(6), stkr C(6), summa N(15,2))
SELECT (this.ParentAlias)


Prvlib.Destroy:
IF USED(This.ProvTmp)
USE IN (This.ProvTmp)
ENDIF

После команды Relese prvlib курсор закрыт,

Снято.
Помогла clear classlib ... после release