Oulook Kontakte auslesen geht nicht unter C:\Programme

[süden]

Mein Codausschnitt war unsauber zusammen gefasst - blöd von mir.
Hier noch mal das fast Ganze:

Delphi-Quellcode:

procedure TmodOutlook.btnReadOutlookClick(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);

  Try
    grdTVOL.DataController.BeginFullUpdate;
    for i := 1 to Contacts.Items.Count do
    begin
      Contact := Contacts.Items.Item(i);
      FrecAdr.FCompanyName              :=  Contact.CompanyName ;
      FrecAdr.FFirstName                :=  Contact.FirstName ;
      ... Anschließend das Einbauen der Werte in ein Grid ...
      
  Finally
    grdTVOL.DataController.EndFullUpdate;
    Outlook := UnAssigned;
  End;

end;

Es läuft alles prima, wenn ich den Programmordner nur kopiere, auch auf C:\.
Wenn ich es installiere (Inno) kommt die oben gezeigte Fehlermeldung.

Ausschnitt Inno-Script:

Code:

MinVersion=5.1.2600
[Dirs]
PrivilegesRequired=admin
Name: "{commonappdata}\ocm\BUEROplus3\Konfig"; Permissions: everyone-full authusers-full users-full; 
Source: ocmBuero3.exe; DestDir: {app}; Permissions: everyone-full authusers-full users-full;

Das spricht der Prozess-Explorer ab Button-Click bis zur Fehlermeldung:

Code:

Event Class:   Registry | Operation:   RegQueryKey
Result:   BUFFER TOO SMALL
Path:   HKCU\Software\Classes\CLSID\{33C53A50-F456-4884-B049-85FD643ECFED}
TID:   3744 | Duration:   0.0000040 | Query:   Full | Length:   0
--------------------------------------------------------------------------
Event Class:   Registry | Operation:   RegOpenKey
Result:   NAME NOT FOUND
Path:   HKCU\Software\Classes\CLSID\{DEE35070-506B-11CF-B1AA-00AA00B8DE95}\ExtendedErrors
TID:   3744 
Duration:   0.0000077
Desired Access:   Read
--------------------------------------------------------------------------
Date & Time:   06.05.2013 14:46:04
Event Class:   Registry
Operation:   RegOpenKey
Result:   NAME NOT FOUND
Path:   HKCU\Software\Classes\CLSID\{dee35070-506b-11cf-b1aa-00aa00b8de95}\ExtendedErrors
TID:   3744 | Duration:   0.0000057 | 
Desired Access:   Maximum Allowed
--------------------------------------------------------------------------
Event Class:   File System | Operation:   QueryOpen | 
Result:   FAST IO DISALLOWED
Path:   C:\ProgramData\ocm\BUEROplus3\Konfig\Errorlog.txt
TID:   3744 | Duration:   0.0000013

Die gleichen Meldungen kommen auch bei der nur kopierten, lauffähigen Version.
Aus der IDE läufts also schwer zu finden.

Hat das etwas mit der UAC zu tun?
Ich habe zwar schon viel gelesen, aber immer noch nicht ganz kapiert.
Installieren als admin, Ausführen als normaler User ...

Der Outlook-Import läuft auch nach der Installation auf D:\.. nicht.