在outlook中撤消删除联系人

我有一个用Delphi编写的应用程序,可以在outlook中添加/更新联系人。我遇到的问题是,如果该联系人在Outlook中被删除,代码仍然会找到该联系人并进行更新-并且该联系人仍然会被删除。有什么方法可以确定是删除联系人还是取消删除联系人?

  OutlookApp := CreateOleObject('Outlook.Application');
  Mapi := OutlookApp.GetNameSpace('MAPI');

//.....
        try
          if ContactOutlookEntryID.AsString <> '' then
            aContact := Mapi.GetItemFromID(ContactOutlookEntryID.AsString);
        except
        end;
          //try to locate the contact if they have been synchro'd before
        if VarIsEmpty(aContact) then //if not found
          aContact := Contacts.Items.Add(2); //add a new contact to outlook
        aContact.LastName := ContactSurname.AsString;
//.....