从已知的数据库中生成一些数据库的问题

本人现在用Delphi做一个数据库的问题
需要从已知的Access数据库的一个表中每次从这个表中随机抽出n条记录产生一个数据库
要这样的产生m个数据库
呵呵说来惭愧本人不会在delphi程序中动态生成Access数据库所以只好先在程序外面
手工先做一个空数据库并在其中建一个空表然后只好用Copyfile函数每次这样生成一个数据库
我现在最迫切想解决的问题是如何随机地从这个表中随机抽出n条记录?
我现在想法是动态申请一个数组每次将用random函数生成的随机数放入这个数组中
然后每次random后都要遍历这个数组看看这个数是否在random中若是则重新生成一个随机数若不是将这个然random函数生成的数所对应的记录号所在的纪录写入表中
我个人觉得此种方法是比较笨的方法了
所以在此请教高人给与一个比较高效的解法
万分感谢