Bei CommandText Zuweisung Exception

[RalfE]

Hallo,
ich verwende Delphi 7,

bei Zuweisung "ADOSet.CommandText := HlpStr"
kommt Access Violation.

Bei Button Klick soll erstmal nur ein Memo gefüllt werden
(bin noch am Probieren). Hier mal der Code:

Delphi-Quellcode:

procedure TFirstForm.Button2Click(Sender: TObject);
Var ADOConn: TADOConnection;
    ADOSet: TADODataSet;
    Loop : Integer;
    HlpStr : WideString;
begin
  ADOConn := TADOConnection.Create(nil);
  ADOSet := TADODataSet.Create(nil);
  ADOConn.Provider := 'ADsDSOObject';
  ADOConn.ConnectionString := 'Provider=ADsDSOObject;Encrypt Password=False;Integrated Security=SSPI;Data Source=NIS;Mode=Read;Bind Flags=0;ADSI Flag=-2147483648';
  ADOConn.LoginPrompt := false;
  ADOSet.Connection := ADOConn;

  HlpStr := 'SELECT displayName,name,ADsPath,DistinguishedName,Location FROM ';
 HlpStr := Concat(HlpStr,QuotedStr('LDAP://meyer_1'));
  HlpStr := Concat(HlpStr,'WHERE objectClass = ',QuotedStr('user'),'and objectCategory = ');
  HlpStr := Concat(HlpStr,QuotedStr('Person'));
  ADOSet.CommandText := HlpStr;  // Exception !!!!
  ADOSet.Open;
  ADOSet.First;
  Memo1.Clear;
  for Loop := 0 to ADOSet.RecordCount -1 do
  begin
    Memo1.Lines.Add(ADOSet.Fields[1].AsString);
    ADOSet.Next;
  end;
end;

Lasse ich das Programme weiterlaufen, so wird das Memo
entsprechend gefüllt.

Danke.