（50分求助）怎样确认OutLook folder中是否已经有指定email 地址？

各位大侠，现在需要将公司全部个人邮箱按照树状结构倒换入outlook 2003 中,但是为了避免重复导入，在插入email 前需要对邮箱进行查找，确认是否已经插入，我现在用 如下代码
var
contactfolder,contact: oldvariant;     //查找outlook folder如果没有该部门，就生成，否则就定位到该部门下
     ContactFolder  := OutlNamespace.GetDefaultFolder(olFolderContacts);
      for c := 1 to OutlNamespace.Folders('个人文件夹').Folders('联系人').Folders.count do
        if OutlNamespace.Folders('个人文件夹').Folders('联系人').Folders(c).Name = sdep then
          begin
            //部门已经生成，定位
            ContactFolder  := OutlNamespace.Folders('个人文件夹').Folders('联系人').Folders(c);
            break;
          end;      //部门还没有生成，创建
      if ContactFolder.name <> sdep then
      begin
        ContactFolder := OutlNamespace.Folders('个人文件夹').Folders('联系人').Folders.Add(sdep, olFolderContacts);
        contactFolder.ShowAsOutlookAB := true;
      end;
    end ;    //检查该部门下是否已经有这个email,每个email 都要检查一下 
    VarClear(contact);
    contact := contactfolder.items.Find('[FirstName]= ' + sName);    if varisnull(contact) then
      showmessage(sdep +  '  ' + sname + ' ' +'null')
    else
      showmessage(sdep +  '  ' + sname + ' ' +'not null');
    if not VarIsEmpty (contact) then
      showmessage(sdep +  '  ' + sname + ' ' +'not empty')
    else
      showmessage(sdep +  '  ' + sname + ' ' +'empty');     现在的问题是：
     不管这个email 是否已经在这个部门里面，最终的结果都会显示 " XXXX  YYYY  not null " 和 "XXXX YYYY  not empty"
     
      该怎样修改，可以正确检查出email 地址是否已经录入呢？
      请各位大侠帮忙！！！