Галактика в вопросах и ответах

Попробуй так, если не стандартный функционал тебе не подходит. Решение допотопное, но иногда выручает.
///////Экспорт
var sPath : String;
var liHnd : LongInt;
sPath := sDirPath + '\DGK006_Form.dbf';
liHnd := DBFOpen(sPath, stCreate);
if(liHnd=0)
{
Message('Не могу создать Файл!'+chr(13)+sPath ...