Store.GetdefaultFolder is creating folders with weird names

OleFolder := OleStore.GetDefaultFolder(olFolderDrafts);
OleFolder := OleStore.GetDefaultFolder(olFolderOutbox);
OleFolder := OleStore.GetDefaultFolder(olFolderSentMail);

procedure TAddInModule.SetTrackSentItemsFolder(const value: boolean);
var
  OleSession, OleStore, OleFolder, OleItems: OleVariant;
  Teller, iIndex: Integer;
  TmpItems: _Items;
  bFolderSentMailOk: Boolean;
begin
  try
    if DebugTraceMode then DebugLog.Log('Start: TAddInModule.SetTrackSentItemsFolder(' + BoolToStr(value, true) + ')');
    if Length(FItemsArray) > 0 then
    begin
      if not Value then
      begin
        for Teller := 0 to High(FItemsArray) do
        begin
          FItemsArray[Teller].Disconnect;
          FItemsArray[Teller].Free;
          FItemsArray[Teller] := nil;
        end;
        SetLength(FItemsArray, 0);
      end;
    end
    else
    if Value then
    begin
      //Meerdere accounts enkel vanaf 2007 afin het object dat je daarvoor nodig hebt toch
      //dat wil niet zeggen dat dit ook al mogelijk was in 2007
      if GetOutlookVersion >= 12.0 then
      begin
        OleSession := OleVariant(Outlookapp.Session);
        for Teller := 1 to OleSession.Stores.Count do
        begin
          OleStore := OleSession.Stores.Item(Teller);
          ShowMessage(OleStore.displayname);
          //DW  donderdag 17/08/2017 17:18:46: DW
          //    vraag drafts foldernames op voor latere controles
          OleFolder := Unassigned;
          try
            //DW  donderdag 17/08/2017 17:07:08: DW
            //    kan fouten geven bij sommige stores dat de bewerking mislukt is bvb
            //    vandaar try except
            OleFolder := OleStore.GetDefaultFolder(olFolderDrafts);
            if FOutlookSentFolderNames.IndexOf(OleFolder.Name) = -1 then
              FOutlookSentFolderNames.add(OleFolder.Name);
            OleFolder := Unassigned;
          except on E: SysUtils.Exception do
            begin
              ShowMessage(E.Message);
            end;
          end;

          //DW  donderdag 17/08/2017 17:18:46: DW
          //    vraag Outbox foldernames op voor latere controles
          OleFolder := Unassigned;
          try
            //DW  donderdag 17/08/2017 17:07:08: DW
            //    kan fouten geven bij sommige stores dat de bewerking mislukt is bvb
            //    vandaar try except
            OleFolder := OleStore.GetDefaultFolder(olFolderOutbox);
            if FOutlookOutboxFolderNames.IndexOf(OleFolder.Name) = -1 then
              FOutlookOutboxFolderNames.add(OleFolder.Name);
            OleFolder := Unassigned;
          except on E: SysUtils.Exception do
            begin
              ShowMessage(E.Message);
            end;
          end;


          bFolderSentMailOk := True;
          OleFolder := Unassigned;
          try
            OleFolder := OleStore.GetDefaultFolder(olFolderSentMail);
            //DW  donderdag 17/08/2017 17:37:26: DW
            //    sent ook toevoegen aan lijst van namen
            if FOutlookSentFolderNames.IndexOf(OleFolder.Name) = -1 then
              FOutlookSentFolderNames.add(OleFolder.Name);
          except on E: SysUtils.Exception do
            begin
              bFolderSentMailOk := False;
              ShowMessage(E.Message);
            end;
          end;

          //DW  maandag 15/01/2018 15:04:14: DW
          //    kan andere folder zijn als sent mail default niet bestaat
          //    dan mag men dit al niet doen. de code ging ervan uit dat die
          //    altijd bestaan hierboven maar dat is nit het geval
          if bFolderSentMailOk and not VarIsClear(OleFolder) then
          begin
            OleItems := OleFolder.Items;
            TmpItems := nil;
            if Supports(OleItems, _Items, TmpItems) then
              if TmpItems <> nil then
              begin
                iIndex := Length(FItemsArray);
                SetLength(FItemsArray, Length(FItemsArray) + 1);
                FItemsArray[iIndex] := TItems.Create(Self);
                FItemsArray[iIndex].OnItemAdd := ItemsAdd;
                FItemsArray[iIndex].ConnectTo(TmpItems);
              end;
            OleFolder := Unassigned;
          end;
        end;
      end
      else
      begin
        SetLength(FItemsArray, 1);
        FItemsArray[0] := TItems.Create(Self);
        FItemsArray[0].OnItemAdd := ItemsAdd;
        FItemsArray[0].ConnectTo(Self.OutlookApp.GetNamespace('MAPI').GetDefaultFolder(olFolderSentMail).Items);
      end;
    end;
    if DebugTraceMode then DebugLog.Log('End: TAddInModule.SetTrackSentItemsFolder(' + BoolToStr(value, true) + ')');
  except on E: SysUtils.Exception do
    WriteException(E, 'TAddInModule.SetTrackSentItemsFolder');
  end;
end;

Public Sub test()
Dim aStore As Store
Dim aFolder As Folder

'on error resume next
For Each aStore In Session.Stores
    MsgBox (aStore.DisplayName)
    'this seems to TRY to create the folder if it does not exist in PST's
    Set aFolder = aStore.GetDefaultFolder(olFolderDrafts)
    'these one's usually fail with operation failed message
    Set aFolder = aStore.GetDefaultFolder(olFolderOutbox)
    Set aFolder = aStore.GetDefaultFolder(olFolderSentMail)
    Set aFolder = Nothing
Next
End Sub

procedure TOutlookHelper.LookupOutlookversion;
var
  oApp: OleVariant;
  version: Double;
  sVersion: string;
  iPos1, iPos2: Integer;
begin
  FOutlookVersion := ovUnknown;
  FOutlookFullVersionStr := '';
  try
    oApp := CreateOleObject('Outlook.Application');
    try
      FOutlookFullVersionStr := oApp.Version;
      sVersion := FOutlookFullVersionStr;
      if sVersion <> '' then
      begin
        iPos1 := Posstr('.', sVersion);
        iPos2 := PosStr('.', sVersion, iPos1 +1);

        //DW  Max 1 "."
        if iPos2 > 0 then
          sVersion := StrLeft(sVersion, iPos2-1);

        sVersion := StrTran(sVersion, '.', DecimalSeparator);

        Version := StrToFloat(sVersion);
        if version < 8.5 then
          FOutlookVersion := ovOutlook97
        else if version < 9 then
          FOutlookVersion := ovOutlook98
        else if version < 10 then
          FOutlookVersion := ovOutlook2000
        else if version < 11 then
          FOutlookVersion := ovOutlook2002
        else if version < 12 then
          FOutlookVersion := ovOutlook2003
        else if version < 14 then
          FOutlookVersion := ovOutlook2007
        else if version < 15 then
          FOutlookVersion := ovOutlook2010
        else if version < 16 then
          FOutlookVersion := ovOutlook2013
        else
          FOutlookVersion := ovUnknown;
      end;
    finally
      oApp := Unassigned;
    end;
  except
  end;
end;