Во время работы приложения выпадает сообщение о нарушении индекса. Таблица Paradox 7.0 имеет семь индексов (включительно с первичным). В этом случае нужна ли реиндексация или требуется удалить все индексы, а затем их заново создать. И еще: как создать первичный ключ описание есть, а как удалить первичный ключ описания нет - подскажите кто-нибудь.
Vit посоветовал удалить все файлы с диска кроме *.DB. Как все это сделать програмно, я не имею ввиду совет Vit`a.

Это пример из моей программы, сокращать не стал, если будут вопросы, спрашивай.

Код

with fLogo do begin    if bool      then begin        lfirst.caption := 'Осуществляется первый запуск приложения';        lfirst.visible := true;        try          Application.ProcessMessages;          lload.Caption := 'Соединение с базой данных..';          Application.ProcessMessages;          fdm.DPhone.Connected := True;          fDM.tTel.Exclusive := true;          lload.Caption := 'Откртие таблицы физических лиц..';          Application.ProcessMessages;          fDM.tTel.Open;          lload.Caption := 'Создание индексного файла для таблицы физических лиц...';          Application.ProcessMessages;          fDm.tTel. AddIndex('Phone','Phone', [ixCaseInsensitive]);          fDm.tTel.AddIndex('Name','Name', [ixCaseInsensitive]);          fDm.tTel.AddIndex('Street','Street;Home;Kvr', [ixCaseInsensitive]);          fDm.tTel.Close;          fDM.tTel.Exclusive := false;        except          fDm.tTel.Close;          fDM.tTel.Exclusive := false;          MessageBox(0,PChar('Не могу создать индексные файлы для таблицы телефонных номеров физических лиц!'+#13+'Приложение вынуждено завершить свою работу.'),'Критическая ошибка', MB_OK+MB_ICONERROR);          exit;        end;          fDM.tOrg.Exclusive := true;          Application.ProcessMessages;          lload.Caption := 'Откртие таблицы юридических лиц...';          Application.ProcessMessages;          fDM.tOrg.Open;        try          lload.Caption := 'Создание индексного файла для таблицы юридических лиц...';          Application.ProcessMessages;          fDm.tOrg.AddIndex('Phone','Phone', [ixCaseInsensitive]);          fDm.tOrg.AddIndex('OrgName','OrgName', [ixCaseInsensitive]);          fDm.tOrg.AddIndex('Street','Street;Home', [ixCaseInsensitive]);          fDm.tOrg.Close;          fDM.tOrg.Exclusive := false;        except          fDm.tOrg.Close;          fDM.tOrg.Exclusive := false;          MessageBox(0,PChar('Не могу создать индексные файлы для таблицы телефонных номеров юридических лиц!'+#13+'Приложение вынуждено завершить свою работу.'),'Критическая ошибка', MB_OK+MB_ICONERROR);          exit;        end;        try          lload.Caption := 'Откртие таблицы телефонных номеров физических лиц...';          Application.ProcessMessages;          fDM.tTel.Open;        except          MessageBox(0,PChar('Не могу открыть таблицу телефонных номеров физических лиц!'+#13+'Приложение вынуждено завершить свою работу.'),'Критическая ошибка', MB_OK+MB_ICONERROR);          Application.Terminate;        end;        Reg.WriteString('First', 'false');        Reg.CloseKey;        Reg.Free;        lfirst.visible := false;      end      else begin        try          lload.Caption := 'Откртие таблицы телефонных номеров юридических лиц...';          Application.ProcessMessages;          fDM.tTel.Open;        except          MessageBox(0,PChar('Не могу открыть таблицу телефонных номеров юридических лиц!'+#13+'Приложение вынуждено завершить свою работу.'),'Критическая ошибка', MB_OK+MB_ICONERROR);          exit;        end;      end;  end;  //with

Два важных момента.

1) таблица должны бать открыта в эксклюзивном режиме (fDM.tTel.Exclusive := false);
2) 2) в моем примере, я создаю вторичные индексы. но если все создавать с нуля (т.е. предварительно будут удалены индексные файлы Paradox (*.PX, и т.д.), то в первую очередь необходимо создать уникальный первичный индекс.

Индексные файлы удалять не требуется в том случае, если ты хочешь просто их пересоздать.

Выпадает сообщение о повреждении первичного индекса. Как мне "отремонтировать" его. Я полагаю, что нужно индеск сначала удалить, а затем создать заново. Создать могу, а как удалить? Вот в чем вопрос.
В ответе Pegas`а я не нашел ответа на свой вопрос. Извинете!

Именно так как я и предлагал.

1) Закрываем все таблицы
2) sesion.active:=false;
3) програмно удаляем все файлы кроме DB
4) sesion.active:=true;
5) Создаём повторно ключи и индексы

А чем это не ответ:

Цитата

2) в моем примере, я создаю вторичные индексы. но если все создавать с нуля (т.е. предварительно будут удалены индексные файлы Paradox (*.PX, и т.д.), то в первую очередь необходимо создать уникальный первичный индекс.

А как "но если все создавать с нуля (т.е. предварительно будут удалены индексные файлы Paradox (*.PX, и т.д.)" Vit уже объяснил...