DBIERRS delphi paradox

[Gregorian]

Препод задал задачку внести проверку первичного индекса путем подключения модуля DBIERRS.

procedure TForm3.HandleException(Sender:TObject; E:Exception);
var err:DBIResult;
begin
if E is EDBEngineError then
      begin
      err:=(E as EDBEngineError).errors[(E as EDBEngineError).errorcount-1].errorcode;
      if (err = DBIERR_KEYVIOL) then
      Showmessage('òàêîé êëþ÷ óæå ñóùåñòâóåò')
      else if (err = DBIERR_LOCKED) then
      Showmessage('çàïèñü áëîêèðîâàíà äðóãèì ïîëüçîâàòåëåì')
      else if (err = DBIERR_FILELOCKED) then
      Showmessage('òàáëèöà áëîêèðîâàíà êåì-òî åù¸')
      else Showmessage('Äðóãàÿ îøèáêà ÁÄ');
      end
      else
      Showmessage('Óïñ!!!!!!!!!!' + E.Message);
end;

После добавления кода начали тупить подчиненные таблицы, в чем трабл разобратсья не могу... программа в архиве

[Gregorian]

ап
Ваше сообщение слишком короткое. Оно должно быть не менее 10 символов.