delphi怎么取内存条的序列号等机器码

想做个机器码验证的程序.之前有试着取过mac,硬盘号与cpu id,发现都不尽人意..mac与硬盘号好像现在网上都有相关的修改工具,cpu id则在另一台同型号的机器上取到的值相同(不知是否算法上不对).
所以现在想再取内存条与主板号试试,或是有啥其他较好的验证机子的方法吗?