寻求解决方案！单机版程序，在每天的合并中的问题(100分)

寻求解决方案！单机版程序，在每天的合并中的问题！
做了个图书管理系统，单机版的。每天有三台机子，三千多条记录要加进来。因为条码是唯一的，
但在合并的时候又怕相同的条码记录合并进来，比较麻烦！

寻求解决办法！

现库中已经存在了这样的问题！比如说000001，就有两个
我这样写了一句，一运行就死机？帮忙看看！
procedure TFrm_Main.Button9Click(Sender: TObject);
var
tmp_aa:String;
begin
with Frm_data.ADOQuery do
begin
Close;
SQL.Clear;
SQl.Add('Select * from book_info');
Open;
while not eof do
begin
tmp_aa:=fieldByName('book_id').AsString;
with Frm_data.ADOQuery do
begin
Close;
SQL.Clear;
SQL.Add('Select * from book_info where book_id=:t1');
Parameters[0].Value:=tmp_aa;
Open;
if RecordCount>1 then
begin
Memo1.Lines.Add(tmp_aa);
end;
next;
end;
end;
end;
end;

应该怎么写!

begin
with Frm_data.ADOQuery do
begin
Close;
SQL.Clear;
SQl.Add(SELECT DISTINCT book_id from book_info');

以上的用法我已经试过，但这样只能提取ID号，如果这样写的话，又不对了？望指教！

select distinct book_id,.....book_Arranger from book_info

这样写的话，与
select Distinct book_id from book_info的RecordCount完全不一样！

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1396095

多人接受答案了。