как создать список User в ActiveDirectory

Знаю... знаю... надо юзать Active Directory Service Interfaces: ADSI
но все что я смог - это отоброзить информацию по известному имени пользователя....
_________________________________________
procedure TForm1.Button1Click(Sender: TObject);
var
Usr: IADsUser;
Comp: IADsContainer;
Path:string;
begin
path:='WinNT://1server/'+EditName.Text+',user';
Comp := GetObject('WinNT://1server,computer' ) as IADsContainer;
Usr := GetObject(path) as IADsUser;
ShowMessage(Usr.FullName);
end;
___________________________________________
Это все хорошо, но у меня две проблемы:

1. При попытке определения некотоых свойств пользователя (Usr.LastName, Usr.FistName) происходит ошибка, а для таких свойств как Description или FullName всё проходит на ура
2. Как создать список?
в руководстве микрософт для VB все просто - For each Usr in Domain...
а как сделать это в делфе