Outlook warning when using Redemption.AddressLists (Delphi)

[topspin]

I'm trying to pool contact list and code works fine but its open an outlook warning massege, please help me.

var
i,j : integer;
OutlookApplication1 : OleVariant;
NameSpace : OleVariant;
AddressLists : OleVariant;
AddressList : OleVariant;
AddressEntries : OleVariant;
begin

OutlookApplication1 := CreateOleObject('Outlook.Application');
NameSpace := OutlookApplication1.GetNamespace('MAPI');
NameSpace.Logon ('','',false,false);

AddressLists := CreateOleObject('Redemption.AddressLists');
AddressLists := NameSpace.AddressLists;

for i := 1 to AddressLists.count do
begin
combobox1.Items.Add (AddressLists.item(i));
AddressList := AddressLists.item(i);
AddressEntries := AddressList.AddressEntries;
for j:= 1 to AddressEntries.count do
begin
listbox1.Items.Add(AddressEntries.item(j).Name);
end;
end;

end;

I have looked all over http://www.dimastr.com/redemption/ and not found
anything that specifically talks about how to get to the address book. Does
anyone know what I am missing?
Thanks!
Dimitry Kashin