var
 Session: hTUses;
 i: integer;
 ErrorCode: word;
 ResultCode: word;
procedure BdeError(ResultCode: Word);
begin
 if ResultCode <> 0 then
  raise Exception.CreateFmt('BDE ошибка %x', [ResultCode]);
end;
begin
 try
  BdeError(DbiInit(nil));
  BdeError(TUInit(@Session));
  for i := 1 to High(TableNames) do
  begin
  WriteLn('Проверка ' + TableNames[i]);
  ResultCode := TUVerifyTable(Session, @TableNames[i, 1], szPARADOX, 'TABLERRS.DB', nil, TU_Append_Errors, ErrorCode);
  BdeError(ResultCode);
  if ErrorCode = 0 then
  WriteLn('Успешно')
  else
  WriteLn('ОШИБКА! -- Для информации смотри TABLERRS.DB!');
  WriteLn('');
  end;
 finally
  BdeError(TUExit(Session));
  BdeError(DbiExit);
 end;
end.