var Ar : Array of Variant;
...
...
Ar := ADOQuery.FieldByName('cn').AsVariant;
Name := Ar[0];
Ar := ADOQuery.FieldByName('uid').AsVariant;
Login := Ar[0];
var Ar : Array of Variant;
...
...
Ar := ADOQuery.FieldByName('cn').AsVariant;
Name := Ar[0];
Ar := ADOQuery.FieldByName('uid').AsVariant;
Login := Ar[0];