Como ejemplo sencillito igual te sirve esto:
Código Delphi
[-]
const
olFolderContacts = $0000000A;
var
outlook, NameSpace, Contacts, Contact: OleVariant;
i, p: Integer;
....
outlook := CreateOleObject('Outlook.Application');
try
NameSpace := outlook.GetNameSpace('MAPI');
Contacts := NameSpace.GetDefaultFolder(olFolderContacts);
for i := 1 to Contacts.Items.Count do
begin
..... aquí haz lo que necesites
end;
finally
Outlook.Quit;
Outlook := UnAssigned;
end;