关于2个数据表结果（N条）对比匹配问题！怎么循环才对比？

代码如下：
with ADOQuery3 do
    begin
    ACTIVE:=false;
    ADOQuery3.close;
    ADOQuery3.SQL.Clear;
    ADOQuery3.SQL.Add('select I_company,I_R_num from Wjm_C_Details  ');
    EXECSQL;
    ACTIVE:=True;a_filedNo:=ADOQuery1.FieldCount;//每一行的列数
  try
  a_recno:= 1;
  ADOQuery1.First;
  while not ADOQuery1.Eof do
       begin
        for j:=1 to a_filedNo do     //转化一个记录，你可以在此进行修改或什么的
          begin
          sqlstr1:=sqlstr1+''''+ADOQuery1.Fields[j-1].AsString+''''+','
          end;
        endl;
现在我要一个个把
adoquery3.Fields.FieldByname('I_company').AsString跟ADOQuery1.Fields[1].AsString
adoquery3.Fields.FieldByname('I_R_num').AsString跟ADOQuery1.Fields[2].AsString
对比，如果adoquery3.Fields.FieldByname('I_company').AsString<>ADOQuery1.Fields[1].AsString 而且adoquery3.Fields.FieldByname('I_R_num').AsString=ADOQuery1.Fields[2].AsString  提示 不匹配，并弹出个框用于修改