把这两个表都读到数据集中来循环比较吧！
如：

var
  FieldName:String;//待比较的字段
  FieldValue:String;
begin
  AdoQuery1.Open;
  AdoQuery2.Open;
  Adoquery1.First;
  AodQuery2.First;
  while Not AdoQuery1.Eof do
  begin
    FieldValue:=AdoQuery1.FieleByName(FieldName).AsString;
    while Not AdoQuery2.Eof do
    begin
      if SameText(AdoQuery2.FieldByName(FieldName).AsString) then
      begin
        showmessage('字段('+FieldName+')值相同!');
      end;
      AdoQuery2.Next;
    end;
    AdoQuery1.Next;
  end;
end;