Authetificate User via LDAP against active directory

[mikel.pahl]

Sorry for the late response:
These values makes no sense and seems to be random even with same credentials: 74841234,75627666,71302290,71498898,75889652,74120338

I wonder why the response is different from VCL with the same source.

If ADsOpenObject fires no exception the user can pass so I modified the source to:
try
ADSerg:=adshlp.ADsOpenObject(ap, aUser,aPassword, 1, IID_IADsUser,user);
//result:=(ADSerg=s_OK);
result:=true;
except