请看一段代码。帮帮忙！急，在线！！！！

//把相关信息插入表smpp_factory_key中
    query2.SQL.clear;
    query2.SQL.Add('select factorykeyid from smpp_factory_key where factorykeyid=:keyid');
    query2.Params[0].AsString := m_keyuniid;
    query2.ExecSQL;//b_tag:=query2.Locate('factorykeyid', VarArrayOf([m_keyuniid]), [loPartialKey]);    if (query2.IsEmpty = False) then
        begin
                messagedlg('不能重复插入相同的记录，请检查输入是否正确!',mtInformation,
                        [mbOk], 0);
                exit;
        end;我的目的是判断数据库中是否存在字段factorykeyid和值m_keyuniid相同的记录。但是他总是报错，不能执行代码：if (query2.IsEmpty = False) then
        begin
                messagedlg('不能重复插入相同的记录，请检查输入是否正确!',mtInformation,
                        [mbOk], 0);
                exit;
        end;请各位帮帮忙！！！！！！！！！！
注：字段factorykeyid类型是全球唯一标志，用b_tag:=query2.Locate('factorykeyid', VarArrayOf([m_keyuniid]), [loPartialKey]);不能查找。