Neue Attribute mit LDAP hinzufügen

[RWarnecke]

Hallo zusammen,

ich habe mir die beiden Units für LDAP von CodeCentral heruntergeladen. Die Verbindung und das auslesen zum LDAP-Server funktioniert wunderbar. Aber irgendwie bin ich zu blöd einem Object ein neues Attribute hinzuzufügen oder es zu modifizieren.

Mein bissheriger Versuch sieht so aus :
procedure TForm6.Button1Click(Sender: TObject);
var
ldapconnected : LdapConnection;
Entries: LdapEntryList;
ldapAttr: LdapEntry;
Attributes : LdapAttribute;
newAttr: LdapEntry;
begin
ldapconnected := LdapConnection.Create;
ldapconnected.Open('server.domain.de','cn=user,ou= container,o=container', 'password', 389);
Entries := LdapEntryList.Create;
ldapAttr := LdapEntry.Create;
ldapconnected.Search(Entries, 'ou=container,o=container'); // In der NDS suchen ab einem bestimmten Containers

Label1.Caption := Entries.GetDN(11); // Abrufen des Full Calified Name

ldapAttr := Entries.GetEntry(11); // Auslesen der Attribute von dem Object

ldapAttr.Add('l', 'Stuttgart'); // Dieser Wert soll hinzugefügt werden.
ldapconnected.Add(Entries.Entry[9]);

Label2.Caption := Entries.EntryValue[11, 'givenName', 0]; // Einzelne Attribute auslesen
Label3.Caption := Entries.EntryValue[11, 'fullName', 0]; // Einzelne Attribute auslesen
Label4.Caption := Entries.EntryValue[11, 'l', 0]; // Einzelne Attribute auslesen

Memo3.Lines.Text := ldapAttr.AsLDIF; // Eine LDIF - Ausgabe vom NDS-Object erstellen
Memo2.Lines := ldapAttr.NameList; // Anzeigen der dazugehörigen Attribute
Memo1.Lines.Text := Entries.Text; // Anzeigen des Suchergebniss

ldapAttr.Free; // ldapEntry wieder freigeben
Entries.Free; // ldapEntryList wieder freigeben
ldapconnected.Close; // LDAP - Verbindung schliessen
ldapconnected.Free; // LDAPConnection wieder freigeben
end;


Nur jedesmal bekomme ich eine EAccessViolation auf die Datei wldap32.dll. Nur weiß ich nicht warum. Könntet Ihr mit da weiterhelfen ?