Wenn du schon die Methode Add von TStrings verwendest, solltest du auch dafür sorgen, dass TStrings leer ist.
Also entweder mit der Methode Clear erst leeren:
Delphi-Quellcode:
SQLQuery := 'SELECT cn FROM ' + frmMain.Funktion.GetLDAPTableString('LDAP','Gesellschaft',frmMain.Funktion.Domaene) + ' where objectclass='
+ QuotedStr('contact') + ' and objectcategory=' + QuotedStr('user');
ADOQuery.SQL.Clear; <=== hier wird TStrings geleert!
ADOQuery.SQL.Add(SQLQuery);
oder wenn du bereits einen vollständigen String hast, diesen direkt der Eigenschaft Text zuweisen:
Delphi-Quellcode:
SQLQuery := 'SELECT cn FROM ' + frmMain.Funktion.GetLDAPTableString('LDAP','Gesellschaft',frmMain.Funktion.Domaene) + ' where objectclass='
+ QuotedStr('contact') + ' and objectcategory=' + QuotedStr('user');
ADOQuery.SQL.Text := SQLQuery; <=== hier einen String zuweisen
Grüße
Mikhal