[littlePCgenius]

если кому-то будет интересно...вышла из положения следующим путем:

в FormCreate занесла

Код:

 FileHandle:=FileCreate('semafor.txt'); //создала файл
 FileClose(FileHandle);//закрыла
 FileHandle:=FileOpen('semafor.txt', fmShareDenyNone);//открыла файл в многопользовательском режиме

на кнопку "Переиндексация":

Код:

FileClose(FileHandle);
if DeleteFile('semafor.txt') then
begin

//переиндексация

 FileHandle:=FileCreate('semafor.txt'); 
 FileClose(FileHandle);
 FileHandle:=FileOpen('semafor.txt', fmShareDenyNone);
ShowMessage('Переиндексация успешно завершена!');
 end
else
ShowMessage('Переиндексация невозможна!');
end;