ADSI-Zugriff führt zu Programmabsturz

[Siggi]

Hallo zusammen,

ich stehe gerade völlig auf dem Schlauch und finde den Fehler nicht. Ich versuche in Delphe 2010 mit Hilfe der Unit ADSI (gefunden auf https://stackoverflow.com/questions/...tive-directory) die Gruppenzugehörigkeit des gerade angemeldetn Benutzers zu ermitteln. Der Aufruf von getUser() gibt auch völlig korrekt die Daten zurück. Anschließend führt aber jeder weitere Schritt im Programm zu einer Zugriffsverletzung (readViolation).

Um zu prüfen, ob es an meiner Applikation oder an der Verwendung der ADSI-Unit, habe ich die Unit mal in einem ganz einfachen Programm zum Test eingefügt. Dort tritt der selbe Fehler auf, ist also kein Folgefehler andere in meiner eigentliche Applikation verwendeten Codes sonder liegt nur in einer irgendwie falschen Nutzung der ADSI-Unit.

Zum Test habe ich folgendes Mini-Programm erzeugt:
- neue Dephi VCL-Anwendung
- eine Form mit einem Memo und einem Button
- im Button folgender Code auf dem Click-Event:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  aUser: TADSIUserInfo;
  AD:TADSI;
begin
  ad:=TADSI.Create(self);
  if ad.GetUser('','', aUser) then  // hier könnte man auch Domäne und User übergeben, macht aber keinen Unterschied. Mit Leerstrings wird der aktuell angemeldete User verwendet
  begin
    showMessage(aUser.Groups);  // --> da stehen die Gruppen korrekt drin
    memo1.Lines.Add(aUser.Groups)   // --> das führt zu 
  end;
end;

Ich suche jetzt schon Stunden nach dem Fehler (vermutlich irgendein falsch verwendeter Pointer / null-terminiertet String) komme aber nicht weiter.
Sobald in der ADSI-Unit die Code-Zeile zum Aufruf von ADsGetObject ausgeführt wird, tritt an einer nicht vorhersehbaren Stelle im weiteren Verlauf der Applikation eine Zugriffsverltezung auf. Im obigen simplen Beispiel ist es der Zugriff auf das TMemo.

Nachfolgender Code aus ADSI.pas verkürzt auf die relevanten Zeilen, ADsGetObject() steckt in der in Delphi erzeugten ActiveDs_TLB-Unit:

Delphi-Quellcode:

...
type
  TADSIUserInfo = record
    UID: string;
    UserName: string;
    Description: string;
    Password: TPassword;
    Disabled: boolean;
    LockedOut: boolean;
    Groups: string; //CSV
end;

...

function TADSI.GetUser(Domain, UserName: string; var ADSIUser: TADSIUserInfo): boolean;
var
  usr   :    IAdsUser;
  dom1, uid1: string;

begin
...
  Result:=false;
  uid1:=FCurrentUser
  dom1:=FCurrentDomain
...
  ADsGetObject(PWideChar('WinNT://' + dom1 + '/' + uid1), IADsUser, usr);
...

Hat jemand einen Tipp für mich, wo der Fehler stecken könnte?

Werden weitere Informationen benötigt?

Vielen Dank schon mal
Siggi