Outlook - Kontakte mit Benutzerdefinierten Feldern auslesen?

[Sharky]

Hai ihr lieben,

im Forum gibt es ja jede Menge Hinweise wie man mit Delphi den Kontakte-Ordner von Outlook auslesen kann.
So weit so gut. Mein Problem ist das ich auch Benutzerdefinierte Felder in den Kontakten habe und leider nocht nichts gefunden habe wie ich diese nun auslesen kann.

Hat da einer einen Tip für mich?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  olFolderContacts = $0000000A;
var
  outlook, NameSpace, Contacts, Contact: OleVariant;
  i: Integer;
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);
    ShowMessage(Contact.UserProperty('FRI-Test')); // Das soll nur zweigen was ich möchte
  end;
  Outlook := UnAssigned;
end;