Outlook fehler beim Erst. eines neuen Ordners unter Kontakte

[LuckySpacy]

Das Erstellen eines neuen Ordners unter Kontakte funktioniert in Outlook nicht einwandfrei.

Das Erstellen führe ich wie folgt aus:

Delphi-Quellcode:

const
  olFolderContacts = $0000000A;

procedure AddNewFolderTest;
var
  aOutlook: Variant;
  aMapi   : Variant;
  aFolder : Variant;
begin
  aOutlook := CreateOleObject('Outlook.Application');
  try
    aMAPI    := FOutlook.GetNameSpace('MAPI');
    aFolder  := aMapi.GetDefaultFolder(olFolderContacts);
    aFolder.Folders.Add('Wichtig');
  finally
    aOutlook := Unassigned;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddNewFolderTest;
end;

Danach wird auch erwartungsgemäß ein neuer Ordner unter Kontakte mit Namens 'Wichtig' erstellt.
Ich kann auch Kontakte (Adressen) in den Ordner Wichtig schieben. Funktioniert soweit alles.

Wenn ich bei einer neuen email auf den Button "An" klicke, dann erscheint das Fenster "Namen auswählen".
Soweit alles in Ordnung.

Jetzt möchte ich in der Combobox meinen neuen Ordner "Wichtig" auswählen.
Dieser Ordner wird aber in der Combobox nicht angezeigt.

Jetzt zu meiner Frage:
Warum nicht?
Was mache ich falsch?