Einzelne Kontakte mit Delphi aus Outlook 2007 /2010 löschen

[wolves232]

ich habs hinbekommen


procedure TFormMain.Loeschfunktion;
var
outlook, NameSpace, Contacts : OleVariant;
entfernen : Integer;
begin
outlook := CreateOleObject('Outlook.Application');
NameSpace := outlook.GetNameSpace('MAPI');
Contacts := NameSpace.GetDefaultFolder(olFolderContacts);
entfernen := StrToInt(ListView.Items[Auswahl].SubItems[14]);
Contacts.Items.Item(entfernen).Delete;
entfernen := ListView.Items.Count;
end;