1:

Outlook := CreateOleObject('Outlook.Application');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Procedure TForm1.btnKontakteClick(Sender: TObject);
  Const
    olFolderContacts = $0000000A;
  Var
    outlook, NameSpace, Contacts, Contact: OleVariant;
    i: Integer;
    s: String;

  Begin
    outlook := CreateOleObject('Outlook.Application');
    NameSpace := outlook.GetNameSpace('MAPI');

    Contacts := NameSpace.GetDefaultFolder(olFolderContacts);
    For i := 1 To Contacts.Items.Count Do
      Begin
        Contact := Contacts.Items.Item(i);
        s := Contact.FullName + ' <' + Contact.Email1Address + '>';
        lst1.Items.Add(s);
      End;

    outlook := UnAssigned;
  End;