если кому-то будет интересно...вышла из положения следующим путем:
в 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;