COMMENT ON TABLE D279 IS 'Заявки на обслуживание';

  S := '';
  i := pos('FOREIGN KEY', Text);
  if i > 0 then begin
    i := pos('on table', Text, i+1);
    if i > 0 then begin
      i := pos('"', Text, i+1);
      if i > 0 then begin
        j := pos('"', Text, i+1);
        if j > 0 then begin
          s := copy(Text, i+1, j-i-1);

        end;
      end;
    end;
  end;
{FormTree84562864.DBTV.Query34465248_74403344.DeleteQuery:
Violation of FOREIGN KEY constraint "".
Violation of FOREIGN KEY constraint "FKT002_D048" on table "T002".
Foreign key references are present for the record.
At trigger 'TRD009ADDRS_D048_D' line: 5, col: 3
At trigger 'TRVD009ADDRS_IED' line: 20, col: 1.}


  if (s <> '') and
     (DM_Navigator <> nil) and
     (DM_Navigator.DBNavigator <> nil) and
     DM_Navigator.DBNavigator.Connected then begin
    Q := TB_Query.Create(nil);
    try
      Q.SQL.Text := 'SELECT RDB$DESCRIPTION FROM rdb$relations WHERE rdb$relation_name = :TName';
      Q.ParamByName('TName').AsString := s;
      Q.Open;
      if not Q.IsEmpty and (Q.FieldByName('RDB$DESCRIPTION').AsString <> '') then
        Text := Format('Данные используются в таблице "%s"'#13#10'%s',
          [Q.FieldByName('RDB$DESCRIPTION').AsString, Text]);
    finally
      FreeAndNil(Q);
    end;
  end;