unique代码pascal